PSOSPML4 ;BIRM/MFR - Single Prescription ASAP Data Listman Driver ;09/01/12
Source file <PSOSPML4.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 13 | ($$ASAP95,$$TH09,$$TH13)^PSOASAP0 $$RXNUM^PSOBPSU2 ($$RXRLDT,$$RXSITE,$$RXSTATE,$$RXSTATEP)^PSOBPSUT LST^PSOPMP0 DP^PSORXVW $$SECKEY^PSOSPMA3 EXMSG^PSOSPML2 EN^PSOSPML3 LOADASAP^PSOSPMU0 ($$BLDBAT,LOADRTS,PAUSE,SETLN)^PSOSPMU1 $$RXFILL^PSOSPMU2 $$CUSSEG^PSOSPMU3 ($$PREIEN,$$RPHIEN,$$SCREEN,$$SPOK,EXPORT,SEGCOUNT,SETNAME)^PSOSPMUT |
Kernel | 6 | ^%ZIS ^%ZISC $$EC^%ZOSV UNWIND^%ZTER $$NOW^XLFDT $$UP^XLFSTR |
VA FileMan | 4 | IX^DIC ^DIE $$GET1^DIQ ^DIR |
List Manager | 3 | EN^VALM FULL^VALM1 CLEAN^VALM10 |
Registration | 1 | (ADD,DEM)^VADPT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
RX | ; - Prescription prompt
|
|
EN(RXIEN,FILLNUM,RECTYPE) | ; Entry point
|
|
HDR | ; - Builds the Header section
|
|
INIT | ; Builds the Body section
|
|
SETSEG(ARRNAM) | ; Sets list body with ASAP (non-1995) info (Uses Recurisivity - Call itself)
|
|
ERROR | ; Error Trap Handling to catch errors on user-entered M expression
|
|
SETSEG95(LSTSUB,RECORD) | ; Sets list body with ASAP 1995 info
|
|
ASAPDEF | ; - Invokes Listman for ASAP Definitions
|
|
EXPORT | ; - Export Rx
|
|
VIEW | ; - Rx View Action
|
|
MP | ; - Patient Medication Profile
|
|
EXIT | ; Listman Exit
|
|
HELP | ; Listman Help
|
|
RXLKP(RXNUM) | ; - Peforms Lookup on the PRESCRIPTION file
|
|
VRECMSG(X,RXIEN,FILLNUM,PSOSECK) | ; Inform user if VOID selected without PSO SPMP ADMIN key
|
Name | Field # of Occurrence |
---|---|
^%ZIS | EXPORT+58 |
^%ZISC | EXPORT+60 |
$$EC^%ZOSV | ERROR+1 |
UNWIND^%ZTER | ERROR+2 |
IX^DIC | RXLKP+3 |
^DIE | EXPORT+62 |
$$GET1^DIQ | EN+7, EN+9, EN+11, HDR+2, HDR+4, ASAPDEF+3, EXPORT+40, EXPORT+41, EXPORT+45, EXPORT+46 , EXPORT+49, EXPORT+57, MP+4 |
^DIR | RX+2, EXPORT+28, EXPORT+35, EXPORT+65 |
$$ASAP95^PSOASAP0 | INIT+5 |
$$TH09^PSOASAP0 | SETSEG+20 |
$$TH13^PSOASAP0 | SETSEG+20 |
$$RXNUM^PSOBPSU2 | RX+7 |
$$RXRLDT^PSOBPSUT | RX+16, EXPORT+16, VRECMSG+2 |
$$RXSITE^PSOBPSUT | EN+8, EXPORT+49, MP+3 |
$$RXSTATE^PSOBPSUT | EN+6, ASAPDEF+2, EXPORT+38 |
$$RXSTATEP^PSOBPSUT | EXPORT+39 |
LST^PSOPMP0 | MP+5 |
DP^PSORXVW | VIEW+8 |
$$SECKEY^PSOSPMA3 | EXPORT+14 |
EXMSG^PSOSPML2 | EXPORT+58 |
EN^PSOSPML3 | ASAPDEF+5 |
LOADASAP^PSOSPMU0 | INIT+8 |
$$BLDBAT^PSOSPMU1 | EXPORT+55 |
LOADRTS^PSOSPMU1 | EN+14 |
PAUSE^PSOSPMU1 | RX+13 |
SETLN^PSOSPMU1 | SETSEG+8, SETSEG+22, SETSEG+23, ERROR+1, SETSEG95+3, SETSEG95+4, SETSEG95+5, SETSEG95+6, SETSEG95+7, SETSEG95+8 , SETSEG95+9, SETSEG95+10, SETSEG95+11, SETSEG95+12, SETSEG95+13, SETSEG95+14, SETSEG95+15, SETSEG95+16, SETSEG95+17, SETSEG95+18 , SETSEG95+19, SETSEG95+20, SETSEG95+21, SETSEG95+22, SETSEG95+23, SETSEG95+24, SETSEG95+25, SETSEG95+26, SETSEG95+27, SETSEG95+28 , SETSEG95+29, SETSEG95+30, SETSEG95+31, SETSEG95+32 |
$$RXFILL^PSOSPMU2 | RX+9 |
$$CUSSEG^PSOSPMU3 | SETSEG+8 |
$$PREIEN^PSOSPMUT | EN+15 |
$$RPHIEN^PSOSPMUT | EN+16 |
$$SCREEN^PSOSPMUT | RX+11, EXPORT+5 |
$$SPOK^PSOSPMUT | EXPORT+50, EXPORT+51 |
EXPORT^PSOSPMUT | EXPORT+59, EXPORT+63 |
SEGCOUNT^PSOSPMUT | SETSEG+9 |
SETNAME^PSOSPMUT | EN+10 |
ADD^VADPT | EN+10, EXPORT+40 |
DEM^VADPT | EN+10 |
EN^VALM | EN+17 |
FULL^VALM1 | EN+18, ASAPDEF+4, EXPORT+4, MP+2 |
CLEAN^VALM10 | INIT+3 |
$$NOW^XLFDT | EXPORT+61 |
$$UP^XLFSTR | RX+3, VRECMSG+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
^PS(58.41 - [#58.41] | GET1^DIQ |
^PS(58.42 - [#58.42] | Classic Fileman Calls, GET1^DIQ |
^PS(59 - [#59] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("PSOSPML4" | INIT+3!, EXIT+1! |
^TMP("PSOSPMRX" | EXPORT+54!* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | EXPORT+58!* |
ARRAY | SETSEG+3~, SETSEG+4*, SETSEG+5, SETSEG+7, SETSEG+25 |
ARRNAM | SETSEG~, SETSEG+4 |
ASAP | EN+1~, INIT+1~, INIT+8, SETSEG+16, SETSEG+17 |
ASAP( | SETSEG+7, SETSEG+8, SETSEG+9, SETSEG+11, SETSEG+14, SETSEG+15, SETSEG+18, SETSEG+19 |
BATCHIEN | EN+2~, EN+3* |
BATIEN | EXPORT+1~, EXPORT+55*, EXPORT+57, EXPORT+59, EXPORT+60, EXPORT+63 |
COLUMN | SETSEG+3~, SETSEG+5* |
D | RXLKP+1~, RXLKP+2* |
DA | EXPORT+60~*, VIEW+6~, VIEW+7* |
DETLN | SETSEG+3~ |
DFN | PSOSPML4+3~, EN+9*, EN+10, EXPORT+1~, EXPORT+40*, VIEW+1~, MP+1~ |
DIC | RXLKP+1~, RXLKP+2* |
DIC(0 | RXLKP+2* |
DIE | EXPORT+60~* |
DIR | PSOSPML4+3~, RX+1!, EXPORT+1~, EXPORT+10!, EXPORT+28!, EXPORT+31!, EXPORT+65! |
DIR("?" | RX+1* |
DIR("??" | RX+1*, EXPORT+15* |
DIR("A" | RX+1*, EXPORT+10*, EXPORT+33*, EXPORT+34*, EXPORT+65* |
DIR("B" | EXPORT+23*, EXPORT+27*, EXPORT+34* |
DIR("L" | EXPORT+11*, EXPORT+12*, EXPORT+19*, EXPORT+20*, EXPORT+21*, EXPORT+26* |
DIR("PRE" | EXPORT+17* |
DIR(0 | RX+1*, EXPORT+18*, EXPORT+25*, EXPORT+34*, EXPORT+65* |
DIRUT | PSOSPML4+3~, RX+2, EXPORT+1~, EXPORT+28! |
DR | EXPORT+60~, EXPORT+61* |
DRUGIEN | EN+1~, EN+11* |
DSPL | SETSEG95+1~, SETSEG95+3*, SETSEG95+4*, SETSEG95+5*, SETSEG95+6*, SETSEG95+7*, SETSEG95+8*, SETSEG95+9*, SETSEG95+10*, SETSEG95+11* , SETSEG95+12*, SETSEG95+13*, SETSEG95+14*, SETSEG95+15*, SETSEG95+16*, SETSEG95+17*, SETSEG95+18*, SETSEG95+19*, SETSEG95+20*, SETSEG95+21* , SETSEG95+22*, SETSEG95+23*, SETSEG95+24*, SETSEG95+25*, SETSEG95+26*, SETSEG95+27*, SETSEG95+28*, SETSEG95+29*, SETSEG95+30*, SETSEG95+31* , SETSEG95+32* |
DTOUT | EXPORT+31!, EXPORT+35, VRECMSG+1 |
DUOUT | EXPORT+1~, EXPORT+28!, EXPORT+31!, EXPORT+35 |
DUZ | EXPORT+61 |
FILLIEN | EN+1~, EN+12* |
FILLNUM | RX+9*, RX+11, RX+16, RX+19, EN~, EN+5*, EN+12, EN+14, EN+15, EN+16 , HDR+3, INIT+5, EXPORT+5, EXPORT+16, EXPORT+54, VIEW+8~, VRECMSG~, VRECMSG+2 |
I | SETSEG+3~, SETSEG+13*, SETSEG+14, SETSEG+15, SETSEG+18, SETSEG+19, SETSEG+22*, SETSEG+23* |
IO | EXPORT+58 |
IOP | EXPORT+58! |
LINE | INIT+1~, INIT+3*, INIT+5, INIT+9, VIEW+8~ |
LINE1 | HDR+1~ |
LINE2 | HDR+1~ |
LST | EXPORT+1~, EXPORT+43*, EXPORT+44 |
LSTELM | SETSEG+3~, SETSEG+11*, SETSEG+13 |
LSTSUB | SETSEG95~, SETSEG95+2, SETSEG95+3, SETSEG95+4, SETSEG95+5, SETSEG95+6, SETSEG95+7, SETSEG95+8, SETSEG95+9, SETSEG95+10 , SETSEG95+11, SETSEG95+12, SETSEG95+13, SETSEG95+14, SETSEG95+15, SETSEG95+16, SETSEG95+17, SETSEG95+18, SETSEG95+19, SETSEG95+20 , SETSEG95+21, SETSEG95+22, SETSEG95+23, SETSEG95+24, SETSEG95+25, SETSEG95+26, SETSEG95+27, SETSEG95+28, SETSEG95+29, SETSEG95+30 , SETSEG95+31, SETSEG95+32 |
MBMST | EXPORT+1~, EXPORT+41*, EXPORT+42 |
PATIEN | EN+1~, EN+9* |
PATIENT | MP+1~, MP+4*, MP+5 |
POP | EXPORT+58! |
PREIEN | EN+1~, EN+15* |
PS | VIEW+6~ |
PSOASVER | EN+7*, HDR+4, INIT+4, INIT+6, INIT+8, SETSEG+8, SETSEG+20, ASAPDEF+3*, ASAPDEF+5, EXPORT+1~ , EXPORT+45*, EXPORT+55 |
PSOCOL | SETSEG95+1~, SETSEG95+2*, SETSEG95+3, SETSEG95+4, SETSEG95+5, SETSEG95+6, SETSEG95+7, SETSEG95+8, SETSEG95+9, SETSEG95+10 , SETSEG95+11, SETSEG95+12, SETSEG95+13, SETSEG95+14, SETSEG95+15, SETSEG95+16, SETSEG95+17, SETSEG95+18, SETSEG95+19, SETSEG95+20 , SETSEG95+21, SETSEG95+22, SETSEG95+23, SETSEG95+24, SETSEG95+25, SETSEG95+26, SETSEG95+27, SETSEG95+28, SETSEG95+29, SETSEG95+30 , SETSEG95+31, SETSEG95+32 |
PSOLSTLN | PSOSPML4+3~, VIEW+1~ |
PSONAME | EN+1~ |
PSOQUIT | PSOSPML4+3~, RX+3*, RX+5, RX+6*, RX+7* |
PSOSECK | EXPORT+1~, EXPORT+14*, EXPORT+18, EXPORT+21, VRECMSG~, VRECMSG+2 |
>> PSOSITE | MP+3 |
PSOTITLE | VIEW+1~, VIEW+2*, VIEW+8~, VIEW+10 |
PSOTPCNT | PSOSPML4+3~, INIT+7* |
PSOTTCNT | PSOSPML4+3~, INIT+7* |
PSOTXRTS | EXPORT+1~, EXPORT+46*, EXPORT+57 |
PSOVDA | VIEW+6~, VIEW+7* |
RECORD | SETSEG95~, SETSEG95+4, SETSEG95+5, SETSEG95+6, SETSEG95+7, SETSEG95+8, SETSEG95+9, SETSEG95+10, SETSEG95+11, SETSEG95+12 , SETSEG95+13, SETSEG95+14, SETSEG95+15, SETSEG95+16, SETSEG95+17, SETSEG95+18, SETSEG95+19, SETSEG95+20, SETSEG95+21, SETSEG95+22 , SETSEG95+23, SETSEG95+24, SETSEG95+25, SETSEG95+26, SETSEG95+27, SETSEG95+28, SETSEG95+29, SETSEG95+30, SETSEG95+31, SETSEG95+32 |
RECTYPE | EN~, EN+14, EN+15, EN+16, EXPORT+1~, EXPORT+29*, EXPORT+32, EXPORT+54, EXPORT+55 |
RPHIEN | EN+1~, EN+16* |
RSTREC | EN+1~ |
RTSDATA | EN+1~, EN+14! |
RTSREC | EN+1~, EN+14* |
RXIEN | PSOSPML4+3~, RX+4*, RX+7*, RX+9, RX+11, RX+16, RX+19, EN~, EN+6, EN+8 , EN+9, EN+11, EN+14, EN+15, EN+16, HDR+2, HDR+4, INIT+5, ASAPDEF+2, EXPORT+5 , EXPORT+16, EXPORT+38, EXPORT+39, EXPORT+40, EXPORT+49, EXPORT+54, VIEW+7, VIEW+8~, MP+3, MP+4 , VRECMSG~, VRECMSG+2 |
RXLN | SETSEG+3~, SETSEG+17*, SETSEG+18*, SETSEG+19 |
RXNUM | RXLKP~, RXLKP+2 |
SCREEN | PSOSPML4+3~, RX+11*, RX+12, RX+13, EXPORT+1~, EXPORT+5*, EXPORT+6, EXPORT+7, EXPORT+8 |
SEGID | SETSEG+3~, SETSEG+5*, SETSEG+7, SETSEG+8, SETSEG+9, SETSEG+10, SETSEG+11, SETSEG+14, SETSEG+15, SETSEG+18 , SETSEG+19 |
SEGTXT | SETSEG+3~, SETSEG+10*, SETSEG+16*, SETSEG+20*, SETSEG+22* |
SITE | MP+1~, MP+3* |
SITEIEN | EN+1~, EN+8*, MP+1~, MP+3*, MP+5 |
STATE | ASAPDEF+1~, ASAPDEF+2*, ASAPDEF+3, EXPORT+38*, EXPORT+39 |
STATEIEN | PSOSPML4+3~, EN+6*, EN+7, EXPORT+1~, EXPORT+44*, EXPORT+45, EXPORT+46, EXPORT+48, EXPORT+50, EXPORT+51 , EXPORT+54 |
STATELST | EXPORT+1~, EXPORT+39*, EXPORT+42*, EXPORT+43, EXPORT+44 |
TMPARR | SETSEG+3~, SETSEG+10! |
TMPARR( | SETSEG+19*, SETSEG+23 |
TRXTYPE | EN+1~, EN+13* |
VALM | PSOSPML4+3~ |
VALM("TITLE" | VIEW+2, VIEW+10* |
VALMBCK | PSOSPML4+3~, ASAPDEF+5*, EXPORT+2*, VIEW+10*, MP+5* |
VALMCNT | PSOSPML4+3~, INIT+3*, INIT+5*, INIT+9*, VIEW+1~ |
VALMHDR | PSOSPML4+3~, HDR+2! |
VALMHDR(1 | HDR+2*, HDR+3* |
VALMHDR(2 | HDR+4* |
VALMSG | PSOSPML4+3~, INIT+10*, EXPORT+7*, EXPORT+49*, EXPORT+51*, EXPORT+52 |
VALUE | SETSEG+3~, SETSEG+14*, SETSEG+15*, SETSEG+16, SETSEG+17 |
>> VAPA(5 | EXPORT+40, EXPORT+41, EXPORT+42 |
X | PSOSPML4+3~, RX+2, RX+3*, RX+4, RX+5, RX+6, RX+7, HDR+1~, EXPORT+1~, RXLKP+1~ , RXLKP+2*, VRECMSG~, VRECMSG+1, VRECMSG+2 |
Y | EXPORT+1~, EXPORT+29, EXPORT+35, RXLKP+1~, RXLKP+4 |
ZTSK | EXPORT+58! |