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 |