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~ |