APSQCK1 ;IHS/ASDS/ENM/POC - CONT OF APSQCK NON FORMULARY CALL [ 06/07/2001 10:56 AM ]
Source file <APSQCK1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VAL44 | ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
|
|
VAL33 | ;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
|
|
NFRXEND | ;FINISH
|
|
HDR | ||
STOP | ||
DIC | ||
;PRINT OR BROWSE A NON FORMULARY REQUEST
|
||
BULL(GOTIT,BULLETIN,XMY) | ;SEND A BULLETIN GOTIT IS THE IEN OF APSQNF( AND BULLETIN IS NAME OF BULLETIN
|
|
PRT1 | ;EP
|
|
HDR2 | ||
PASS(PROV) | ;EP CHECK IF THIS IS A VALID NEW PERSON TO LOOK AT THIS ENTRY
|
|
BROWSE | ; BROWSE IT
|
|
RX | ;EP COMES FROM PSODRG TO CHECK IF NON FORMULARY REQUEST FOR NF DRUG
|
|
1 | ;DELETE THE DRUG
|
|
PRT | ;PRINT IT
|
|
3 | ;DO BOTH 1 AND 2
|
|
2 | ;DO AN INTERVENTION
|
|
4 | ;DO NOTHING
|
|
RXSETK | ;EP KILL PRESCRIPTION REFERENCE IF RX DELETED
|
|
VAL3 | ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
|
|
VAL2 | ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE FORM
|
|
VAL1 | ;EP CALLED FROM SCREENMAN UPON VALIDATING THE FORM APSQ NF PHARMACIST
|
|
VAL4 | ;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
|
|
CK | ;EP
|
|
BULL1 | ||
XMB | ;SEND TO WHO EVER
|
|
RXSET1 | ||
WRITE | ;
|
|
ASK | ;ASK WHAT IS TO BE DONE
|
|
BULL2 | ;ADD ANY EXTRA PEOPLE TO BULLETIN
|
|
LOOK | ;EP LOOK UP AN ENTRY AND DO SOMETHING
|
|
HDR1 | ||
EXIT | ;CLEAN UP TIME
|
|
RXSET | ;EP SET THE REFERENCE RX FIELD
|
Name | Field # of Occurrence |
---|---|
^%ZIS | PRT+1 |
HOME^%ZIS | PRT+2 |
^%ZISC | PRT1+8 |
ENDR^%ZISS | ASK+2 |
^%ZTLOAD | PRT+2 |
HLP^DDSUTL | VAL1+5, VAL1+13, VAL33+6, VAL44+6 |
$$GET^DDSVALF | VAL1+2, VAL2+1, VAL3+1, VAL33+1, VAL4+1, VAL44+1 |
MSG^DIALOG | CK+14 |
^DIC | LOOK+6, DIC+4 |
$$FIND1^DIC | DIC+8 |
FIND^DIC | BULL+7 |
^DIE | VAL3+3, VAL4+3, RXSET1+7, RXSETK+4 |
^DIK | VAL2+2 |
^DIR | PRINT+6, ASK+13 |
VIEWR^XBLM | BROWSE+4 |
EN^XBNEW | WRITE+3 |
EN^XBVK | CK+16, CK+26, NFRXEND+4, STOP |
DEST^XMA21 | DIC+11 |
^XMB | BULL1+2 |
^XMD | XMB+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(20 - [#20] | GET^DDSVALF |
^VA(200 - [#200] | Classic Fileman Calls |
^XMB(3.6 - [#3.6] | FIND1^DIC |
^DIC(7 - [#7] | GET^DDSVALF |
^DIC(8 - [#8] | GET^DDSVALF |
^APSQNF - [#9009035.1] | Classic Fileman Calls, FIND^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^APSQNF - [#9009035.1] | CK+22, BROWSE+2, HDR2, RX+11, RX+12, RXSET1+7 |
^APSQNF("M" | CK+13, CK+20, RX+8, RX+10, RXSET1+4 |
^APSQNF("RX" | RXSETK+3 |
^DIC(4 - [#4] | XMB+2 |
^DPT - [#2] | BROWSE+2, HDR2 |
^PSDRUG - [#50] | RX+5, RXSET1+1 |
^PSRX - [#52] | RX+14, RXSET1 |
^TMP("DDS" | CK+4 |
^UTILITY("DIQ1" | WRITE+1!, WRITE+5 |
Name | Line Occurrences |
---|---|
1 | 3+1 |
2 | 3+1 |
@( | LOOK+11, PRT1+3, ASK+17 |
ASK | NFRXEND+2 |
BROWSE | PRINT+10 |
BULL1 | BULL+10 |
BULL2 | BULL+9 |
DIC | DIC+5 |
EXIT | LOOK+10, LOOK+12, PRT+1 |
HDR | PRT1+6 |
NFRXEND | RX+9, RX+11 |
PRT | PRINT+9 |
RXSET1 | RXSET+4 |
STOP | RXSET+4, RXSETK+5 |
WRITE | LOOK+11 |
Name | Field # of Occurrence |
---|---|
^( | CK+20, RXSET1+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIS | PRT+1* |
ADD | EXIT+5! |
>> APSQ("CLOSED" | CK+22*, CK+23 |
>> APSQ("DRUG" | CK+1!, CK+9*, CK+10, CK+13, CK+20 |
>> APSQ("DT" | CK+1!, CK+11*, CK+12, CK+13, CK+20* |
>> APSQ("PAT" | CK+1!, CK+6*, CK+7, CK+13, CK+20 |
>> APSQ("QUIT" | CK+19*, CK+20, CK+24* |
>> APSQ("RECIEN" | CK+20*, CK+21, CK+22 |
>> APSQC | CK+4* |
>> APSQC(1 | CK+11 |
>> APSQC(2 | CK+6 |
>> ARRAY | PRT1+4*, PRT1+5 |
>> ARRAY( | WRITE+11*, WRITE+12*, WRITE+14*, PRT1+4, PRT1+5 |
>> AZO( | ASK+4 |
BULLETIN | BULL~, BULL1+1, DIC+8 |
CHECK | VAL1+2*, VAL1+3, VAL1+9, VAL1+18! |
CNT | EXIT+5! |
DA | LOOK+11*, WRITE+7*, WRITE+8, WRITE+10, WRITE+13, WRITE+14, EXIT+4!, VAL2+4!, VAL3+4!, VAL4+4! , BROWSE+2, HDR2, RXSET1+7*, RXSETK+4* |
>> DD | WRITE+5* |
>> DD( | WRITE+7, WRITE+8, WRITE+10, WRITE+13, WRITE+14 |
>> DD("" | WRITE+6 |
>> DDS | CK+4 |
>> DDSBR | VAL1+15*, VAL33+8*, VAL44+8* |
DDSCHANG | EXIT+4! |
>> DDSDA | CK+4 |
DDSERROR | CK+13*, CK+16, CK+24*, VAL1+6!, VAL1+16*, VAL33+9*, VAL44+9* |
DDSFILE | CK+4, EXIT+4! |
DDSPARM | EXIT+4! |
DDSSAVE | EXIT+4! |
>> DDSY | CK+9 |
DEL | EXIT+5! |
>> DGI | 1+1*, 2+1* |
DIC | LOOK+3!, LOOK+4*, DIC+1*, DIC+6! |
DIC("A" | LOOK+5*, DIC+3* |
DIC("S" | DIC+2* |
DIC(0 | LOOK+4*, DIC* |
DIE | VAL3+3*, VAL3+4!, VAL4+3*, VAL4+4!, RXSET1+7*!, RXSETK+4*! |
DIK | VAL2+2*, VAL2+4! |
>> DIQ(0 | WRITE+2* |
DIR | PRINT+1!, PRINT+7!, ASK+16! |
DIR("A" | PRINT+3*, ASK+6*, ASK+7*, ASK+8*, ASK+9*, ASK+10* |
DIR("B" | PRINT+4*, ASK+11* |
DIR(0 | PRINT+2*, ASK+12* |
DIROUT | PRINT+8, ASK+15, ASK+16! |
DIRUT | PRINT+8, ASK+15, ASK+16! |
DISP | EXIT+3! |
DR | WRITE+2*, EXIT+4!, VAL3+3*, VAL4+3*, RXSET1+7*, RXSETK+4* |
DTIME | HDR |
DTOUT | LOOK+10, PRINT+8, ASK+16! |
DUOUT | LOOK+10, PRINT+8, ASK+16! |
DUZ | XMB+3, EXIT+1* |
DUZ(2 | XMB+2 |
DUZSAVE | XMB+3, EXIT+1! |
>> END | PRT1+1*, PRT1+4, HDR* |
EXIT | EXIT+2! |
>> FIELD | WRITE+8*, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14 |
>> FILE | WRITE+6*, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+13, WRITE+14 |
FROM | EXIT+5! |
GET | EXIT+5! |
GET("DILIST" | BULL+8 |
GOTIT | BULL~, BULL+6*, BULL+7 |
HELP | VAL1+5, VAL1+13, VAL1+14!, VAL1+18!, VAL33+6, VAL33+7!, VAL44+6, VAL44+7! |
HELP(1 | VAL1+4*, VAL1+10*, VAL33+3*, VAL44+3* |
HELP(2 | VAL1+11*, VAL33+4*, VAL44+4* |
HELP(3 | VAL1+12*, VAL33+5*, VAL44+5* |
HIT | EXIT+5! |
I | WRITE+8*, EXIT+5!, ASK+4* |
IEN | EXIT+5! |
IO | PRT1+2 |
IO("Q" | PRT+2! |
IOF | HDR1 |
IOM | HDR2+2 |
>> IORVOFF | ASK+4 |
>> IORVON | ASK+4 |
IOSL | PRT1+6 |
IOST | PRT1+3, HDR |
>> J | WRITE+13*, WRITE+14 |
>> JOB | CK+2*, CK+4 |
KILL | VAL2+1*, VAL2+2, VAL3+1*, VAL3+2, VAL3+6!, VAL33+1*, VAL33+2, VAL33+11!, VAL4+1*, VAL4+2 , VAL4+6!, VAL44+1*, VAL44+2, VAL44+11!, RXSETK+3*, RXSETK+4 |
>> LAST | WRITE+13*, WRITE+14 |
>> LENG | HDR2+1*, HDR2+2 |
>> LOOK | LOOK+11 |
MORE | EXIT+5! |
>> MSG("DIHELP" | CK+14* |
>> NAME | WRITE+9*, WRITE+10*, WRITE+11 |
>> NFRXAPP | RX+13*, RX+15 |
>> NFRXDATE | RX+8*, RX+9, RX+10, RXSET1+4*, RXSET1+5 |
>> NFRXDRUG | RX+6*, RX+8, RX+10, RXSET1*, RXSET1+1, RXSET1+2*, RXSET1+4 |
>> NFRXIEN | RX+10*, RX+11, RX+12, RXSET1, RXSET1+7, RXSETK+3 |
>> NFRXNON | RXSET1+4*, RXSET1+6, RXSET1+7 |
>> NFRXPT | RX+7*, RX+8, RX+10, RXSET1+3*, RXSET1+4 |
>> NFRXREF | RX+13*, RX+14 |
>> NFRXSEC | RX+12*, RX+13 |
NUM | EXIT+5! |
>> NUMPT | PRT1+1* |
OUT | EXIT+3! |
>> PAGE | PRT1+1*, HDR2+2* |
PERSON | EXIT+5! |
>> POP | PRT+1 |
PROV | PASS~, PASS+1 |
>> PSODFN | RX+4, RX+7, RXSET1+3 |
>> PSODRUG("IEN" | RX+4, RX+5, RX+6 |
>> PSORX("DFLG" | 1+1* |
>> PSORX("INTERVENE" | 2+1* |
SCR | EXIT+5! |
SEQ | EXIT+5! |
>> TOP | BROWSE+2*, BROWSE+4, HDR2*, HDR2+1, HDR2+2 |
U | CK+22, XMB+2, BROWSE+2, HDR2, RX+5, RX+11, RX+13, RXSET1, RXSET1+1, RXSET1+7 |
>> X | PRINT+9, PRINT+10, HDR*, ASK+2* |
XMB | EXIT+7!, BULL+8*, BULL1+1* |
>> XMDUN | DIC+10* |
XMDUZ | XMB+3*, EXIT+7!, BULL1*, DIC+9* |
>> XMSUB | XMB+2* |
>> XMTEXT | XMB+1* |
XMY | BULL~, BULL1+3! |
XMY( | DIC+5* |
>> XMZ | DIC+8* |
>> Y | LOOK+10, LOOK+11, DIC+5, ASK+15*, ASK+17 |
>> ZTDESC | PRT+3* |
>> ZTRTN | PRT+3* |