I'm posting this back to the Hardhats list. For folks on the list, I stopped by Matthew's clinic June 2nd and traced the problem in the code, but it's been awhile since I viewed code in GT.M on Linux. I recall using the vi editor from the "programmer mode" prompt, but I'm a bit rusty on the syntax. As I outlined below, I believe the problem may be with having the latest version of %ZISH for GT.M.
-----Original Message-----
From: Matthew King
Sent: Sunday, June 04, 2006 6:29 PM
[Schlehuber, Cameron] <snip>
Carlos' answer didn't seem to make much difference. The meds end up either
unreleased or pending. Sometimes they go from unreleased to pending after I
sign the order. I'm thinking I need to set up something in the pharmacy
module or assign some kind of phamacy key to the provider, I don't know.
I'll be checking the documentation this week-end. For some reason, the med
order details not longer show the error you found, not even the original
meds ordered. Is there a way to change the output back to the original
format?
I don't know how to check for patches yet. I know the rountine %ZISH exists,
but I don't know how to look at the code yet.
-----Original Message-----
From: Cameron Schlehuber
Sent: Fri 6/2/2006 3:41 PM
Did Carlos' answer solve your problem? I checked and found in the pharmacy
code the line where the message you get is generated:
ZL PSBO ZP RPC+46
D HFSOPEN^PSBUTL("RPC") I POP S ^TMP("PSBO",$J,1)="ERROR: UNABLE TO
ACCESS HFS DIRECTORY "_$$GET^XPAR("DIV","PSB HFS
SCRATCH"),^TMP("PSBO",$J,2)="PLEASE CHECK DIRECTORY WRITE PRIVILEDGES." Q
And HFSOPEN^PSBUTL("RPC") does the following:
HFSOPEN(HANDLE) ;
N PSBDIR,PSBFILE
S PSBDIR=$$GET^XPAR("DIV","PSB HFS SCRATCH")
S PSBFILE="PSB"_DUZ_".DAT"
D OPEN^%ZISH(HANDLE,PSBDIR,PSBFILE,"W") Q:POP
S IOM=132,IOSL=99999,IOST="P-DUMMY",IOF=""""""
Q
My next question is: Do you have patch XU*8*306 installed and is the second
line of %ZISH one of these two? (I don't know which is for GT.M on Linux.)
ZISHGTM ;ISF/AC,RWF - GT.M for VMS/Unix Host file Control ;01/04/2005
10:44
;;8.0;KERNEL;**275,306,385**;Jul 10, 1995;Build 3
ZISHGUX ;ISF/AC,RWF - GT.M for UNIX Host file Control ;01/04/2005 08:13
;;8.0;KERNEL;**275,306**;Jul 10, 1995;
>From programmer mode type:
D OPEN^%ZISH("RPC","","PSB1.DAT")
and you should get POP=0 and not 1
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Carlos
sosa sosa
Sent: Friday, June 02, 2006 10:59 AM
To: [email protected]
Subject: Re: [Hardhats-members] HFS Directory
HOLA Matthew, LA SOLUCION ES LA SIGUIENTE EL PROBLEMA ES QUE NO ENCUENTRA EL
DIRECTORIO, PARA PODER SABER COMO SE LLAMA EL DIRECTORIO HAZ LO SIGUIENTE
D ^XUP
Select OPTION NAME: ker
1 KERMIT MENU XT-KERMIT MENU Kermit menu
2 KERNEL 5.0 FOR SITE MANAGERS XUVERSION5-HELP Kernel 5.0 for
Site M
anagers
3 KERNEL GUI ALERTS XQAL GUI ALERTS Kernel GUI Alerts
4 KERNEL INSTALLATION & DISTRIBU XPD MAIN Kernel Installation &
Dist
ribution System
5 KERNEL MANAGEMENT MENU XUKERNEL Kernel Management Menu
Press <RETURN> to see more, '^' to exit this list, OR
CHOOSE 1-5: 5 XUKERNEL Kernel Management Menu
Ask if Production Account
Enter/Edit Kernel Site Parameters
Institution DEA# edit
Institution Edit
Kernel New Features Help
Kernel PKI Parameter Edit
NPF cleanup main menu ...
<CMM> Select Kernel Management Menu Option: ENTER
EN LA TERCERA PAGINA AHI ESTA LA SOLUCION AHI TE DEBE DE DECIR QUE NOMBRE DE
DIRECTORIO BUSCA
Y AHORA EN INGLES
HI MATT, THE SOLUTION OF YOU'RE PROBLEM IS ON THE KERNEL CONFIGURATION YOU
NEED USE THIS COMMAND TO FOUND THE DIRECTORY
D ^XUP--KERNEL--CHOOSE 5 (KERNELMANAGEMENT) AFTER ENTER/EDIT GO TO PAGE
NUMBER 3 AND CREATE OR MODIFY THE DIRECOTRY
HASTA LUEGO AMIGUITOS
CARLOS
<<attachment: winmail.dat>>
_______________________________________________ Hardhats-members mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/hardhats-members
