PXVP217 ;ISP/LMT - PX*1*217 KIDS Routine ;Aug 16, 2022@13:48:51
Source file <PXVP217.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHFSCAT | ;Correct Service Categories that are HF.
; ZEXCEPT: ZTQUEUED,ZTSTOP |
|
TSKHFSC | ; Task out job to correct Service Categories that are HF
|
|
PRE | ;KIDS Pre install for PX*1*217
|
|
POST | ; KIDS Post install for PX*1*217
|
|
RMOLDDDS | ;Remove old data dictionaries.
|
|
SKACHXR | ; Update ACR cross-reference on V SKIN TEST file
|
|
SKAHXR | ; Update AH cross-reference on V SKIN TEST file
|
|
SKCPT | ; Set PXV SKIN TEST READING CPT parameter
|
|
IMMMAILG | ||
SETPAR | ; Set param value for PXV IMM INVENTORY ALERTS
|
|
IMMDEF | ; Populate the IMM DEFAULT RESPONSES (920.05) file, Immunizations
|
|
CONDEF | ; Populate the IMM DEFAULT RESPONSES (920.05) file, Contra/Refusals
|
|
BMES(STR) | ;
; Write string |
|
MES(STR) | ;
; Write string |
|
IMMDATA | ;Data to populate the IMM DEFAULT RESPONSES (920.05) file
|
|
CONDATA | ;Data to populate the IMM DEFAULT RESPONSES (920.05) file
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | TSKHFSC+7 |
$$S^%ZTLOAD | CHFSCAT+12 |
CREIXN^DDMOD | SKACHXR+46, SKAHXR+24 |
FILE^DIE | CHFSCAT+22 |
UPDATE^DIE | IMMDEF+65, CONDEF+31 |
EN^DIU2 | RMOLDDDS+7 |
UCUMDATA^LEXMUCUM | IMMDEF+46 |
$$FMADD^XLFDT | CHFSCAT+4, IMMDEF+7 |
$$CJ^XLFSTR | BMES+2, MES+2 |
$$TRIM^XLFSTR | BMES+2, MES+2 |
$$MG^XMBGRP | IMMMAILG+7 |
EN^XPAR | SETPAR+5 |
PUT^XPAR | SKCPT+14 |
$$INSTALDT^XPDUTL | SKCPT+9 |
BMES^XPDUTL | RMOLDDDS+2, BMES+2 |
MES^XPDUTL | RMOLDDDS+6, MES+2 |
$$KSP^XUPARAM | IMMDEF+10, CONDEF+6 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | CHFSCAT+9, CHFSCAT+16 |
^AUTTIMM("AVUID" | IMMDEF+25 |
^PXV( | CONDEF+18 |
^PXV(920.05 - [#920.05] | IMMDEF+6, IMMDEF+8 |
^PXV(920.2 - [#920.2] | IMMDEF+33 |
^PXV(920.3 - [#920.3] | IMMDEF+39 |
^TMP("DIERR" | IMMDEF+63!, IMMDEF+66, CONDEF+30!, CONDEF+32 |
^XTMP("PXVP217" | IMMDEF+6, IMMDEF+7*, IMMDEF+8* |
^XTMP("PXVP217-CHFSCAT" | CHFSCAT+4*, CHFSCAT+13*, CHFSCAT+18*, CHFSCAT+24*, CHFSCAT+25*, CHFSCAT+29* |
Name | Line Occurrences |
---|---|
BMES | TSKHFSC+8, TSKHFSC+9, POST+1, POST+12, SKACHXR+2, SKAHXR+2, SKCPT+4, IMMMAILG+3, SETPAR+2, IMMDEF+4 , CONDEF+4 |
CONDEF | POST+9 |
IMMDEF | POST+8 |
IMMMAILG | POST+6 |
MES | SKACHXR+48, SKACHXR+50, SKAHXR+26, SKAHXR+28, SKCPT+11, SKCPT+13, IMMMAILG+8, IMMMAILG+9, SETPAR+6, SETPAR+7 , IMMDEF+12, IMMDEF+24, IMMDEF+27, IMMDEF+35, IMMDEF+41, IMMDEF+50, IMMDEF+66, CONDEF+8, CONDEF+17, CONDEF+20 , CONDEF+23, CONDEF+32 |
RMOLDDDS | PRE+1 |
SETPAR | POST+7 |
SKACHXR | POST+3 |
SKAHXR | POST+4 |
SKCPT | POST+5 |
TSKHFSC | POST+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | CHFSCAT+2~, CHFSCAT+6*, CHFSCAT+10*, CHFSCAT+12 |
DIU | RMOLDDDS+1~, RMOLDDDS+4*, RMOLDDDS+5 |
DIU(0 | RMOLDDDS+3* |
DT | CHFSCAT+4, IMMDEF+7 |
DUZ | IMMMAILG+6, IMMMAILG+7 |
FDA | CHFSCAT+2~ |
FDA(9000010 | CHFSCAT+20* |
IEN | CHFSCAT+2~, CHFSCAT+8*, CHFSCAT+9*, CHFSCAT+12, CHFSCAT+13, CHFSCAT+16, CHFSCAT+18, CHFSCAT+19, CHFSCAT+24, CHFSCAT+25 |
IENS | CHFSCAT+2~, CHFSCAT+19*, CHFSCAT+20 |
IOM | BMES+2, MES+2 |
MSG | CHFSCAT+2~, CHFSCAT+21!, CHFSCAT+23, CHFSCAT+25 |
NUMC | CHFSCAT+2~, CHFSCAT+5*, CHFSCAT+27*, CHFSCAT+29 |
PXDATE | SKCPT+2~, SKCPT+8*, SKCPT+10 |
PXDAYS | CONDEF+2~, CONDEF+14*, CONDEF+16, CONDEF+22, CONDEF+23, CONDEF+29 |
PXDESC | IMMMAILG+1~, IMMMAILG+7 |
PXDESC(1 | IMMMAILG+4* |
PXDESC(2 | IMMMAILG+5* |
PXDOSE | IMMDEF+2~, IMMDEF+19*, IMMDEF+52, IMMDEF+60 |
PXERR | SETPAR+1~, SETPAR+5, SETPAR+6 |
PXFDA | IMMDEF+2~, IMMDEF+15!, CONDEF+2~, CONDEF+11! |
PXFDA( | IMMDEF+55*, IMMDEF+57*, IMMDEF+58*, IMMDEF+59*, IMMDEF+60*, IMMDEF+61*, IMMDEF+62*, CONDEF+26*, CONDEF+28*, CONDEF+29* |
PXFILE | CONDEF+2~, CONDEF+12*, CONDEF+16, CONDEF+18, CONDEF+28, CONDEF+32 |
PXI | IMMDEF+2~, IMMDEF+14*, CONDEF+2~, CONDEF+10* |
PXIEN | IMMDEF+2~, IMMDEF+15!, CONDEF+2~, CONDEF+11!, CONDEF+18*, CONDEF+19, CONDEF+28, CONDEF+32 |
PXIEN(2 | IMMDEF+64* |
PXIENS | IMMDEF+2~, IMMDEF+54*, IMMDEF+55, IMMDEF+56*, IMMDEF+57, IMMDEF+58, IMMDEF+59, IMMDEF+60, IMMDEF+61, IMMDEF+62 , CONDEF+2~, CONDEF+25*, CONDEF+26, CONDEF+27*, CONDEF+28, CONDEF+29 |
PXIMM | IMMDEF+2~, IMMDEF+16*, IMMDEF+23, IMMDEF+25*, IMMDEF+26, IMMDEF+35, IMMDEF+41, IMMDEF+50, IMMDEF+57, IMMDEF+64 , IMMDEF+66 |
PXINST | IMMDEF+2~, IMMDEF+10*, IMMDEF+11, IMMDEF+55, CONDEF+2~, CONDEF+6*, CONDEF+7, CONDEF+26 |
PXLINE | IMMDEF+2~, IMMDEF+14*, IMMDEF+16, IMMDEF+17, IMMDEF+18, IMMDEF+19, IMMDEF+20, IMMDEF+21, CONDEF+2~, CONDEF+10* , CONDEF+12, CONDEF+13, CONDEF+14 |
PXMG | IMMMAILG+1~, IMMMAILG+7*, IMMMAILG+8, IMMMAILG+9 |
PXNUNITS | IMMDEF+2~, IMMDEF+21*, IMMDEF+52, IMMDEF+62 |
PXOUT | SKACHXR+4~, SKAHXR+4~ |
PXRES | SKACHXR+4~, SKACHXR+46, SKACHXR+47, SKACHXR+48, SKACHXR+49, SKAHXR+4~, SKAHXR+24, SKAHXR+25, SKAHXR+26, SKAHXR+27 |
PXROUTE | IMMDEF+2~, IMMDEF+17*, IMMDEF+32, IMMDEF+33*, IMMDEF+34, IMMDEF+36*, IMMDEF+52, IMMDEF+58 |
PXSITE | IMMDEF+2~, IMMDEF+18*, IMMDEF+38, IMMDEF+39*, IMMDEF+40, IMMDEF+42*, IMMDEF+52, IMMDEF+59 |
PXUCUM | IMMDEF+2~, IMMDEF+44!, IMMDEF+46 |
PXUCUM(0 | IMMDEF+47 |
PXUNITS | IMMDEF+2~, IMMDEF+20*, IMMDEF+45, IMMDEF+46, IMMDEF+47*, IMMDEF+48, IMMDEF+49*, IMMDEF+52, IMMDEF+61 |
PXUSERS | IMMMAILG+1~, IMMMAILG+7 |
PXUSERS( | IMMMAILG+6* |
PXVAL | SETPAR+1~, SETPAR+4*, SETPAR+5 |
PXVUID | CONDEF+2~, CONDEF+13*, CONDEF+16, CONDEF+18 |
PXX | SKCPT+2~, SKCPT+9* |
PXX( | SKCPT+10 |
PXXR | SKACHXR+4~, SKACHXR+46, SKAHXR+4~, SKAHXR+24 |
PXXR("ACTIVITY" | SKACHXR+10*, SKAHXR+10* |
PXXR("DESCR" | SKACHXR+12*, SKACHXR+13*, SKACHXR+14*, SKACHXR+15*, SKACHXR+16*, SKACHXR+17*, SKACHXR+18*, SKACHXR+19*, SKACHXR+20*, SKACHXR+21* , SKACHXR+22*, SKACHXR+23*, SKACHXR+24*, SKACHXR+25*, SKACHXR+26*, SKACHXR+27*, SKACHXR+28*, SKACHXR+29*, SKAHXR+12*, SKAHXR+13* , SKAHXR+14* |
PXXR("EXECUTION" | SKACHXR+9*, SKAHXR+9* |
PXXR("FILE" | SKACHXR+5*, SKAHXR+5* |
PXXR("KILL" | SKACHXR+31*, SKAHXR+16* |
PXXR("NAME" | SKACHXR+6*, SKAHXR+6* |
PXXR("SET" | SKACHXR+30*, SKAHXR+15* |
PXXR("SHORT D | ESCR" , SKACHXR+11*, SKAHXR+11* |
PXXR("TYPE" | SKACHXR+7*, SKAHXR+7* |
PXXR("USE" | SKACHXR+8*, SKAHXR+8* |
PXXR("VAL" | SKACHXR+33*, SKACHXR+34*, SKACHXR+35*, SKACHXR+36*, SKACHXR+37*, SKACHXR+38*, SKACHXR+39*, SKACHXR+40*, SKACHXR+41*, SKACHXR+42* , SKACHXR+43*, SKACHXR+44*, SKACHXR+45*, SKAHXR+18*, SKAHXR+19*, SKAHXR+20*, SKAHXR+21*, SKAHXR+22*, SKAHXR+23* |
PXXR("WHOLE K | ILL" , SKACHXR+32*, SKAHXR+17* |
STR | BMES~, BMES+2, MES~, MES+2 |
TEXT | RMOLDDDS+1~, RMOLDDDS+5*, RMOLDDDS+6 |
U | CHFSCAT+4, CHFSCAT+16, SKACHXR+48, SKAHXR+26, SETPAR+6, IMMDEF+16, IMMDEF+17, IMMDEF+18, IMMDEF+19, IMMDEF+20 , IMMDEF+21, CONDEF+12, CONDEF+13, CONDEF+14 |
ZTCPU | TSKHFSC+1~ |
ZTDESC | TSKHFSC+1~, TSKHFSC+4* |
ZTDTH | TSKHFSC+1~, TSKHFSC+6* |
ZTIO | TSKHFSC+1~, TSKHFSC+5* |
ZTKIL | TSKHFSC+1~ |
>> ZTQUEUED | CHFSCAT+12 |
ZTRTN | TSKHFSC+1~, TSKHFSC+3* |
ZTSAVE | TSKHFSC+1~ |
ZTSK | TSKHFSC+1~, TSKHFSC+8, TSKHFSC+9 |
>> ZTSTOP | CHFSCAT+9, CHFSCAT+12* |
ZTSYNC | TSKHFSC+1~ |
ZTUCI | TSKHFSC+1~ |