APSPEC16 ;IHS/CIA/PLS - APSP ENVIRONMENT CHECK ROUTINE ;27-Sep-2013 11:23;PLS
Source file <APSPEC16.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UREGPROT(P,C,ERR) | ;EP-
|
|
SETPKGV(PKG,VER) | ;EP
|
|
CLN50DD | ;EP -
|
|
FIXLBL | ;EP check for missing data in label
|
|
PRE | ;EP - Pre-init
|
|
IENS | ;;147
|
|
REMXPAR(PAR) | ;Remove values stored for a given parameter
|
|
REGPROT(P,C,SEQ,ERR) | ;EP
|
|
MES(TXT,QUIT) | ;EP
|
|
RENXPAR(OLD,NEW) | ; Rename parameter
|
|
FIXVMEDD(DAYS) | ;EP -
|
|
LNAME | ;Loop through drugs and copy generic name to long name field
|
|
CLNNVA | ;EP -
|
|
FIXLBL2(LBL,RX,TYPE) | ;Update missing data
|
|
ENV | ;EP
|
|
POST | ;EP
|
|
AAPPGRP(FILE,NMSP) | ;EP
|
|
BLDTXT | ;EP-
|
|
FIXEXP(INSDT) | ; EP-
|
|
XREF | ;EP-
|
|
MM | ;EP-
|
|
FIXLBL1(RX) | ;Check label nodes
|
|
SEARCH(QQ) | ;EP- Given qualifier return list of drug file entries linked to quantity qualifier
|
|
OFOMSG(OPT,MSG,KEY) | ;
|
|
FIXNODE | ;EP
|
Name | Field # of Occurrence |
---|---|
$$ISSCH^APSPFNC2 | FIXEXP+9 |
$$RMNRFL^APSPFUNC | FIXEXP+4 |
$$FIND1^DIC | RENXPAR+3, RENXPAR+4, REGPROT+4, REGPROT+5, UREGPROT+4, UREGPROT+5, UREGPROT+7, SETPKGV+2, OFOMSG+2, OFOMSG+3 |
^DIE | FIXEXP+14 |
FILE^DIE | RENXPAR+7, OFOMSG+8 |
UPDATE^DIE | AAPPGRP+4, REGPROT+9, UREGPROT+9, SETPKGV+5, CLNNVA+5, FIXNODE+23, FIXLBL2+12, LNAME+10 |
^DIK | REMXPAR+7 |
ENALL^DIK | XREF+4 |
$$ROOT^DILFD | XREF+2 |
$$GET1^DIQ | ENV+2, FIXEXP+10, FIXNODE+13, LNAME+3, LNAME+5, SEARCH+5 |
EN^DIU2 | PRE+2, PRE+3, CLN50DD+1 |
$$DT^XLFDT | FIXVMEDD+2 |
$$FMADD^XLFDT | FIXEXP+12, FIXVMEDD+3 |
$$CJ^XLFSTR | ENV+3, ENV+4 |
^XMD | MM+22 |
EN^XPAR | POST+10 |
DELETE^XPDMENU | POST+4, POST+5 |
$$INSTALDT^XPDUTL | POST+12 |
BMES^XPDUTL | MES+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC |
101.01 | FIND1^DIC |
^DIC(19 - [#19] | FIND1^DIC |
^DIC(19.1 - [#19.1] | FIND1^DIC |
^VA(200 - [#200] | GET1^DIQ |
^PSDRUG - [#50] | GET1^DIQ |
^PS(50.607 - [#50.607] | GET1^DIQ |
^PSRX - [#52] | Classic Fileman Calls |
^XTV(8989.5 - [#8989.5] | Classic Fileman Calls |
^DIC(9.4 - [#9.4] | FIND1^DIC |
^APSPNCP(9009033.7 - [#9009033.7] | GET1^DIQ |
^APSPRREQ - [#9009033.91] | ROOT^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^APSPRREQ - [#9009033.91] | FIXNODE+3, FIXNODE+4, FIXNODE+6, FIXNODE+7, FIXNODE+24*, FIXNODE+26! |
^AUPNVMED - [#9000010.14] | FIXVMEDD+11, FIXVMEDD+17* |
^PS(55 - [#55] | CLNNVA+2, CLNNVA+3 |
^PSDRUG - [#50] | LNAME+2, SEARCH+2, SEARCH+3 |
^PSRX - [#52] | FIXEXP+6, FIXLBL1+2, FIXLBL1+3, FIXLBL2+4, FIXLBL2+5, FIXLBL2+7, FIXLBL2+8, FIXVMEDD+8, FIXVMEDD+9, FIXVMEDD+13 , FIXVMEDD+15 |
^PSRX("AC" | FIXLBL+3, FIXLBL+4 |
^PSRX("AD" | FIXEXP+2, FIXEXP+3, FIXVMEDD+5, FIXVMEDD+7 |
^TMP("APSP1016Z" | MM+7 |
^TMP("DATA" | MM+3!, MM+6, MM+14, MM+15, MM+16, SEARCH+5* |
^XMB("NETNAME" | MM+21 |
^XPAR(8989.5 | REMXPAR+4, REMXPAR+5, REMXPAR+6 |
^XPAR(8989.51 | REMXPAR+2 |
^XUSEC("PSNMGR" | MM+20 |
Name | Line Occurrences |
---|---|
BLDTXT | MM+12 |
FIXEXP | POST+14 |
FIXLBL | POST+9 |
FIXLBL1 | FIXLBL+5 |
FIXLBL2 | FIXLBL1+4 |
FIXNODE | POST+2 |
FIXVMEDD | POST+6 |
LNAME | POST+7 |
MM | POST+3 |
RENXPAR | PRE+4 |
SEARCH | MM+5 |
XREF | POST+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | FIXVMEDD+1~, FIXVMEDD+13*, FIXVMEDD+14, FIXVMEDD+15*, FIXVMEDD+16, FIXVMEDD+17 |
AIEN | REGPROT+1~, REGPROT+5*, REGPROT+6, REGPROT+7, UREGPROT+1~, UREGPROT+5*, UREGPROT+6, FIXLBL2+1~, FIXLBL2+10*, FIXLBL2+11 |
BDT | FIXVMEDD+1~, FIXVMEDD+3*, FIXVMEDD+4 |
C | REGPROT~, REGPROT+3, REGPROT+5, UREGPROT~, UREGPROT+3, UREGPROT+5, UREGPROT+7 |
CNT | MM+1~, MM+13*, MM+18*, MM+19 |
DA | REMXPAR+1~, REMXPAR+6*, FIXEXP+5~, FIXEXP+13*, MM+1~, MM+20* |
DATA | POST+11~, POST+12, MM+1~, MM+7*, MM+8, MM+19, BLDTXT+1, BLDTXT+2, BLDTXT+3, BLDTXT+4 , BLDTXT+5, BLDTXT+6, BLDTXT+7 |
DATA(0 | POST+13 |
DAYS | FIXVMEDD~, FIXVMEDD+3 |
DFN | CLNNVA+1~, CLNNVA+2*, CLNNVA+3, CLNNVA+4 |
DIE | FIXEXP+5~, FIXEXP+13* |
DIEN | SEARCH+1~, SEARCH+2*, SEARCH+3, SEARCH+5 |
>> DIERR | CLNNVA+6 |
DIFROM | MM+1~ |
DIK | REMXPAR+1~, REMXPAR+7*, XREF+1~, XREF+2* |
DIK(1 | XREF+3* |
DISP | FIXNODE+1~, FIXNODE+10*, FIXNODE+11, FIXNODE+24 |
DIU | PRE+1~, PRE+2*, PRE+3*, CLN50DD+1* |
DIU(0 | PRE+2*, PRE+3*, CLN50DD+1* |
DNM | MM+2~, MM+14*, MM+15, MM+16, MM+17 |
DOSE | FIXNODE+1~, FIXNODE+8*, FIXNODE+9, FIXNODE+24, FIXNODE+26 |
DR | FIXEXP+5~, FIXEXP+14* |
DRG | FIXEXP+1~, FIXEXP+7*, FIXEXP+9, FIXEXP+10, LNAME+1~, LNAME+2*, LNAME+3, LNAME+5, LNAME+8 |
DRGQQ | SEARCH+1~, SEARCH+3*, SEARCH+4 |
DUZ | ENV+2 |
EDT | FIXVMEDD+1~, FIXVMEDD+2*, FIXVMEDD+3, FIXVMEDD+5 |
ENT | REMXPAR+1~, REMXPAR+4*, REMXPAR+5, REMXPAR+6 |
ERR | AAPPGRP+1~, REGPROT~, REGPROT+3*, REGPROT+6*, UREGPROT~, UREGPROT+3*, UREGPROT+6*, FIXNODE+1~, FIXNODE+25!, FIXLBL2+1~ , LNAME+7~ |
EXTEXP | FIXEXP+1~, FIXEXP+10*, FIXEXP+11 |
FDA | RENXPAR+1~, AAPPGRP+1~, REGPROT+1~, UREGPROT+1~, SETPKGV+1~, OFOMSG+1~, CLNNVA+1~, CLNNVA+5, FIXNODE+1~, FIXNODE+25! , FIXLBL2+1~, LNAME+7~ |
FDA( | RENXPAR+6*, AAPPGRP+3*, REGPROT+7*, REGPROT+8*, UREGPROT+8*, SETPKGV+4*, CLNNVA+4*, FIXNODE+9*, FIXNODE+11*, FIXNODE+14* , FIXNODE+16*, FIXNODE+17*, FIXNODE+18*, FIXNODE+19*, FIXNODE+20*, FIXNODE+21*, FIXLBL2+11* |
FDA(19 | OFOMSG+6*, OFOMSG+7* |
FDA(50 | LNAME+9* |
FDT | FIXEXP+1~, FIXEXP+2*, FIXEXP+3, FIXVMEDD+1~ |
>> FDTLP | FIXVMEDD+4*, FIXVMEDD+5*, FIXVMEDD+7 |
FIL | RENXPAR+1~, RENXPAR+2*, RENXPAR+3, RENXPAR+4, RENXPAR+6 |
FILE | AAPPGRP~, AAPPGRP+2, AAPPGRP+3 |
FN | FIXNODE+1~, FIXNODE+2*, FIXNODE+9, FIXNODE+11, FIXNODE+14, FIXNODE+16, FIXNODE+17, FIXNODE+18, FIXNODE+19, FIXNODE+20 , FIXNODE+21 |
FNUM | LNAME+1~ |
IEN | RENXPAR+1~, RENXPAR+4*, RENXPAR+5, RENXPAR+6, AAPPGRP+1~, OFOMSG+1~, OFOMSG+2*, OFOMSG+4, OFOMSG+6, OFOMSG+7 , CLNNVA+1~, CLNNVA+3*, CLNNVA+4, FIXNODE+1~, FIXNODE+3*, FIXNODE+4, FIXNODE+5, FIXNODE+6, FIXNODE+7, FIXNODE+24 , FIXNODE+26, LNAME+7~, LNAME+8*, LNAME+9 |
IENARY | REGPROT+1~, UREGPROT+1~ |
IENARY(1 | REGPROT+4*, REGPROT+6, REGPROT+7, REGPROT+8, UREGPROT+4*, UREGPROT+6, UREGPROT+7, UREGPROT+8 |
IENARY(2 | UREGPROT+7*, UREGPROT+8 |
IENS | FIXNODE+1~, FIXNODE+5*, FIXNODE+9, FIXNODE+11, FIXNODE+14, FIXNODE+16, FIXNODE+17, FIXNODE+18, FIXNODE+19, FIXNODE+20 , FIXNODE+21, FIXNODE+25! |
INSDT | POST+11~, POST+13*, POST+14, FIXEXP~, FIXEXP+2 |
INST | FIXNODE+1~, FIXNODE+4*, FIXNODE+5, FIXNODE+6, FIXNODE+7, FIXNODE+24, FIXNODE+26 |
INT | REMXPAR+1~, REMXPAR+5*, REMXPAR+6 |
IOM | ENV+3, ENV+4 |
ISSDT | FIXEXP+1~, FIXEXP+8*, FIXEXP+12 |
KEY | OFOMSG~, OFOMSG+3 |
KIEN | OFOMSG+1~, OFOMSG+3*, OFOMSG+7 |
LBL | FIXLBL1+1~, FIXLBL1+2*, FIXLBL1+3, FIXLBL1+4, FIXLBL2~, FIXLBL2+10 |
LNAME | LNAME+1~, LNAME+5*, LNAME+6 |
LP | MM+1~, MM+4* |
MSG | OFOMSG~, OFOMSG+5 |
NAM | LNAME+1~, LNAME+3*, LNAME+4, LNAME+9 |
NEW | RENXPAR~, RENXPAR+3, RENXPAR+6 |
NEXPDT | FIXEXP+1~, FIXEXP+12*, FIXEXP+14 |
NMSP | AAPPGRP~, AAPPGRP+2, AAPPGRP+3 |
NODE | FIXNODE+1~, FIXNODE+6*, FIXNODE+8, FIXNODE+10, FIXNODE+12, FIXNODE+15, FIXNODE+17, FIXNODE+18, FIXNODE+19, FIXNODE+20 , FIXNODE+21, FIXLBL1+1~, FIXLBL1+3*, FIXLBL1+4 |
NOUN | FIXNODE+1~, FIXNODE+15*, FIXNODE+16, FIXNODE+24 |
NVAERR | CLNNVA+1~ |
NVAERR("DIERR" | CLNNVA+6 |
OLD | RENXPAR~, RENXPAR+4 |
OPT | OFOMSG~, OFOMSG+2 |
P | REGPROT~, REGPROT+3, REGPROT+4, UREGPROT~, UREGPROT+3, UREGPROT+4 |
PAR | REMXPAR~, REMXPAR+2 |
PIEN | REMXPAR+1~, REMXPAR+2*, REMXPAR+3, REMXPAR+4, REMXPAR+5, REMXPAR+6, REGPROT+1~, UREGPROT+1~, SETPKGV+1~, SETPKGV+2* , SETPKGV+3, SETPKGV+4 |
PKG | SETPKGV~, SETPKGV+2 |
SEARCH~, SEARCH+4, SEARCH+5 | |
QQARY | MM+2~ |
QQNM | MM+2~, MM+15*, MM+16, MM+17 |
QUIT | MES~, MES+2 |
RDTE | FIXLBL+1~, FIXLBL+2*, FIXLBL+3*, FIXLBL+4 |
RX | FIXEXP+1~, FIXEXP+3*, FIXEXP+4, FIXEXP+6, FIXEXP+13, FIXEXP+15, FIXLBL+1~, FIXLBL+4*, FIXLBL+5, FIXLBL1~ , FIXLBL1+2, FIXLBL1+3, FIXLBL1+4, FIXLBL2~, FIXLBL2+4, FIXLBL2+5, FIXLBL2+7, FIXLBL2+8, FIXLBL2+10, FIXVMEDD+1~ , FIXVMEDD+6*, FIXVMEDD+7*, FIXVMEDD+8, FIXVMEDD+9, FIXVMEDD+13, FIXVMEDD+15 |
RX0 | FIXEXP+1~, FIXEXP+6*, FIXEXP+7, FIXEXP+8 |
SEQ | REGPROT~, REGPROT+8 |
STR | MM+2~, MM+17*, MM+19 |
TXT | MES~, MES+1 |
TYPE | FIXLBL1+1~, FIXLBL1+4*, FIXLBL2~, FIXLBL2+3, FIXLBL2+6, FIXLBL2+7, FIXLBL2+8 |
U | FIXEXP+7, FIXEXP+8, FIXNODE+8, FIXNODE+10, FIXNODE+12, FIXNODE+15, FIXNODE+17, FIXNODE+18, FIXNODE+19, FIXNODE+20 , FIXNODE+21, FIXLBL1+4, FIXLBL2+7, FIXLBL2+8, FIXVMEDD+11, FIXVMEDD+13, FIXVMEDD+16, FIXVMEDD+17, SEARCH+3, SEARCH+5 |
UNIT | FIXNODE+1~, FIXNODE+13*, FIXNODE+14, FIXNODE+24 |
UNITS | FIXNODE+1~, FIXNODE+12*, FIXNODE+13 |
USER | FIXLBL2+1~, FIXLBL2+2*, FIXLBL2+4*, FIXLBL2+5*, FIXLBL2+7*, FIXLBL2+8*, FIXLBL2+9, FIXLBL2+11 |
VAL | OFOMSG+1~, OFOMSG+5*, OFOMSG+6 |
VER | SETPKGV~, SETPKGV+4 |
VIEN | REMXPAR+1~ |
VMED | FIXVMEDD+1~, FIXVMEDD+9*, FIXVMEDD+10, FIXVMEDD+11, FIXVMEDD+17 |
X | ENV+2*, ENV+3, MM+2~, MM+4*, MM+5, MM+16*, MM+17 |
X2 | FIXEXP+1~, FIXEXP+11*, FIXEXP+12 |
XMDUZ | MM+1~, MM+10* |
XMSUB | MM+1~, MM+11* |
XMTEXT | MM+1~, MM+9* |
XMY | MM+1~ |
XMY( | MM+20* |
XMY("G.NDF DA | TA@" , MM+21* |
>> XPDABORT | ENV+6*, ENV+7, MES+2* |
>> XPDDIQ("XPZ1" | ENV+5* |
>> XPDDIQ("XPZ2" | ENV+5* |
Name | Field # of Occurrence |
---|---|
$T( | ENV+4 |
$T(IENS+LP | MM+4 |