PXVP210 ;BPOIFO/LMT - PX*1*210 KIDS Routine ;11/03/15 16:47
Source file <PXVP210.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ; pre-install entry for patch PX*1*210
|
|
POST | ; KIDS Post install for PX*1*210
|
|
CVIMMXR | ; Update ACR cross-reference on V IMMUNIZATION file
|
|
CIMMXR | ; Create ACR cross-reference on IMMUNIZATION file
|
|
BLDVIMM | ; Rebuild Clinical Reminder index on V Immunization file
|
|
BLDVIMMT | ; Queued entry point to rebuild index
|
|
DDSEC | ; Update security access codes on Immunization and Skin Test files
|
|
TSKDSG | ; Task job to split Dosage into Dose and Units
|
|
DOSAGE | ; Loop through all V Immunization records and determine if Dosage needs to be split
|
|
SPLITDSG(PXIEN) | ; Split Dosage field
|
|
MVDIAGS | ;
; move the data in the old DIAGNOSIS fields of the V SKIN TEST file ; (#9000010.12) to the new fields: ; from old fields .08, .09, .1, .11, .12, .13, .14, .15 ; to new fields 801, 802, 803, 804, 805, 806, 807, 808 respectively. |
|
MVDONE | ; DIAGNOSIS data move completed
|
|
RMVFLD | ; remove DDs for old diagnosis fields .08 to .15
|
|
DELFLD | ; delete field if it exists
|
|
DELSCRN | ; Delete screen nodes from V Immunization .01 DD
|
|
BMES(STR) | ;
; Write string |
|
MES(STR) | ;
; Write string |
Name | Field # of Occurrence |
---|---|
DD^%DT | MVDIAGS+8, MVDONE+1 |
NOW^%DTC | MVDIAGS+8, MVDONE+1 |
CREIXN^DDMOD | CVIMMXR+38, CIMMXR+21 |
FILESEC^DDMOD | DDSEC+13 |
$$GET1^DID | MVDIAGS+6, DELFLD+1 |
FILE^DIE | SPLITDSG+21, SPLITDSG+28 |
VALS^DIE | SPLITDSG+18 |
^DIK | PRE+4, PRE+5, PRE+6, PRE+8, PRE+9, PRE+10, PRE+12, PRE+13, PRE+14, DELFLD+3 |
VIMM^PXPXRMI1 | BLDVIMMT+4 |
INDEXD^PXRMDIEV | BLDVIMMT+3 |
$$FMADD^XLFDT | DOSAGE+11 |
$$NOW^XLFDT | BLDVIMM+11 |
$$CJ^XLFSTR | BMES+2, MES+2 |
$$TRIM^XLFSTR | SPLITDSG+6, BMES+2, MES+2 |
BMES^XPDUTL | MVDIAGS+11, MVDONE+4, DELFLD+2, BMES+2 |
MES^XPDUTL | MES+2 |
$$NODEV^XUTMDEVQ | BLDVIMM+16, TSKDSG+11 |
FileNo | Call Tags |
---|---|
^AUPNVSK - [#9000010.12] | GET1^DID |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVIMM - [#9000010.11] | DOSAGE+6, DOSAGE+7, SPLITDSG+5, SPLITDSG+23 |
^AUPNVSK - [#9000010.12] | MVDIAGS+13, MVDIAGS+14*, MVDIAGS+15* |
^DD(9000010.11 | DELSCRN+2!, DELSCRN+3! |
^PXRMINDX(9000010.11 | BLDVIMM+6, BLDVIMMT+2! |
^XTMP("PXVP210" | TSKDSG+4, DOSAGE+12*, DOSAGE+13* |
Name | Line Occurrences |
---|---|
BLDVIMM | POST+5 |
BMES | POST+1, POST+11, CVIMMXR+3, CIMMXR+3, BLDVIMM+4, DDSEC+3, TSKDSG+3, DELSCRN+1 |
CIMMXR | POST+4 |
CVIMMXR | POST+3 |
DDSEC | POST+6 |
DELFLD | RMVFLD+2, RMVFLD+3 |
DELSCRN | POST+9 |
MES | CVIMMXR+40, CVIMMXR+42, CIMMXR+23, CIMMXR+25, BLDVIMM+7, BLDVIMM+8, BLDVIMM+18, BLDVIMM+20, TSKDSG+5, TSKDSG+6 , TSKDSG+13, TSKDSG+15 |
MVDIAGS | POST+8 |
SPLITDSG | DOSAGE+8 |
TSKDSG | POST+7 |
Name | Field # of Occurrence |
---|---|
^( | MVDIAGS+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | MVDIAGS+7~, MVDIAGS+8, MVDONE+1 |
CNT | MVDIAGS+7~, MVDIAGS+12*, MVDIAGS+14*, MVDONE+2 |
DA | PRE+1~, PRE+4!*, PRE+5!*, PRE+6!*, PRE+8!*, PRE+9!*, PRE+10!*, PRE+12!*, PRE+13!*, PRE+14!* , MVDIAGS+7~, DELFLD+3!* |
DA(1 | PRE+4*, PRE+5*, PRE+6*, PRE+8*, PRE+9*, PRE+10*, PRE+12*, PRE+13*, PRE+14*, DELFLD+3* |
DA(2 | PRE+4*, PRE+5*, PRE+6*, PRE+8*, PRE+9*, PRE+10*, PRE+12*, PRE+13*, PRE+14* |
DIK | PRE+1~, PRE+4!*, PRE+5!*, PRE+6!*, PRE+8!*, PRE+9!*, PRE+10!*, PRE+12!*, PRE+13!*, PRE+14!* , MVDIAGS+7~, DELFLD+3!* |
DR | MVDIAGS+7~ |
DT | DOSAGE+11, DOSAGE+12 |
IOM | BMES+2, MES+2 |
J | MVDIAGS+7~, MVDIAGS+15* |
PX13 | DOSAGE+3~, DOSAGE+7*, DOSAGE+8 |
PXCOM | SPLITDSG+1~, SPLITDSG+23*, SPLITDSG+24*, SPLITDSG+27 |
PXDELIM | SPLITDSG+1~, SPLITDSG+9*, SPLITDSG+10*, SPLITDSG+12, SPLITDSG+13 |
PXDESC | BLDVIMM+1~, BLDVIMM+14*, BLDVIMM+16, TSKDSG+1~, TSKDSG+9*, TSKDSG+11 |
PXDOSAGE | SPLITDSG+1~, SPLITDSG+5*, SPLITDSG+6*, SPLITDSG+10, SPLITDSG+12, SPLITDSG+13, SPLITDSG+24 |
PXDOSE | SPLITDSG+1~, SPLITDSG+7*, SPLITDSG+12*, SPLITDSG+16 |
PXERR | CVIMMXR+1~, CIMMXR+1~ |
PXF | RMVFLD+1~, RMVFLD+2*, RMVFLD+3*, DELFLD+1 |
PXFDAE | SPLITDSG+1~, SPLITDSG+15! |
PXFDAE( | SPLITDSG+16*, SPLITDSG+17* |
PXFDAI | SPLITDSG+1~, SPLITDSG+15!, SPLITDSG+25! |
PXFDAI( | SPLITDSG+20, SPLITDSG+26*, SPLITDSG+27* |
PXFILE | SPLITDSG+1~, SPLITDSG+3*, SPLITDSG+16, SPLITDSG+17, SPLITDSG+20, SPLITDSG+26, SPLITDSG+27 |
PXFILELIST | BLDVIMM+1~ |
PXFILENUM | DDSEC+1~, DDSEC+12*, DDSEC+13 |
PXIEN | DOSAGE+3~, DOSAGE+5*, DOSAGE+6*, DOSAGE+7, DOSAGE+8, SPLITDSG~, SPLITDSG+4, SPLITDSG+5, SPLITDSG+23 |
PXIENS | SPLITDSG+1~, SPLITDSG+4*, SPLITDSG+16, SPLITDSG+17, SPLITDSG+20, SPLITDSG+26, SPLITDSG+27 |
PXJ | RMVFLD+1~*, RMVFLD+3* |
PXN | RMVFLD+1~, RMVFLD+2*, RMVFLD+3*, DELFLD+1, DELFLD+2, DELFLD+3 |
PXQDT | BLDVIMM+1~, BLDVIMM+10*, BLDVIMM+11*, BLDVIMM+15 |
PXRES | CVIMMXR+1~, CVIMMXR+38, CVIMMXR+39, CVIMMXR+40, CVIMMXR+41, CIMMXR+1~, CIMMXR+21, CIMMXR+22, CIMMXR+23, CIMMXR+24 |
PXRTN | BLDVIMM+1~, BLDVIMM+13*, BLDVIMM+16, TSKDSG+1~, TSKDSG+8*, TSKDSG+11 |
PXSEC | DDSEC+1~, DDSEC+13 |
PXSEC("AUDIT" | DDSEC+5* |
PXSEC("DD" | DDSEC+6* |
PXSEC("DEL" | DDSEC+7* |
PXSEC("LAYGO" | DDSEC+8* |
PXSEC("RD" | DDSEC+9* |
PXSEC("WR" | DDSEC+10* |
PXTASK | BLDVIMM+1~, BLDVIMM+16*, BLDVIMM+18, BLDVIMM+19, TSKDSG+1~, TSKDSG+11*, TSKDSG+13, TSKDSG+14 |
PXUNITS | SPLITDSG+1~, SPLITDSG+7*, SPLITDSG+13*, SPLITDSG+17 |
PXVALID | SPLITDSG+1~, SPLITDSG+19*, SPLITDSG+20*, SPLITDSG+21, SPLITDSG+22 |
PXVD | MVDIAGS+7~, MVDIAGS+13*, MVDIAGS+14 |
PXVNOW | MVDIAGS+7~, MVDIAGS+8*, MVDIAGS+10, MVDONE+1*, MVDONE+3 |
PXVOTH | BLDVIMM+1~, BLDVIMM+16, TSKDSG+1~, TSKDSG+11 |
PXVOTH("ZTDTH" | BLDVIMM+15*, TSKDSG+10* |
PXVPDT | DOSAGE+3~, DOSAGE+11*, DOSAGE+12 |
PXVV | MVDIAGS+7~, MVDIAGS+12*, MVDIAGS+13*, MVDIAGS+14, MVDIAGS+15 |
PXXR | CVIMMXR+1~, CVIMMXR+38, CIMMXR+1~, CIMMXR+21 |
PXXR("ACTIVITY" | CVIMMXR+10*, CIMMXR+10* |
PXXR("DESCR" | CVIMMXR+12*, CVIMMXR+13*, CVIMMXR+14*, CVIMMXR+15*, CVIMMXR+16*, CVIMMXR+17*, CVIMMXR+18*, CVIMMXR+19*, CVIMMXR+20*, CVIMMXR+21* , CVIMMXR+22*, CVIMMXR+23*, CIMMXR+12*, CIMMXR+13*, CIMMXR+14*, CIMMXR+15*, CIMMXR+16* |
PXXR("EXECUTION" | CVIMMXR+9*, CIMMXR+9* |
PXXR("FILE" | CVIMMXR+5*, CIMMXR+5* |
PXXR("KILL" | CVIMMXR+25*, CIMMXR+18* |
PXXR("NAME" | CVIMMXR+6*, CIMMXR+6* |
PXXR("SET" | CVIMMXR+24*, CIMMXR+17* |
PXXR("SHORT D | ESCR" , CVIMMXR+11*, CIMMXR+11* |
PXXR("TYPE" | CVIMMXR+7*, CIMMXR+7* |
PXXR("USE" | CVIMMXR+8*, CIMMXR+8* |
PXXR("VAL" | CVIMMXR+27*, CVIMMXR+28*, CVIMMXR+29*, CVIMMXR+30*, CVIMMXR+31*, CVIMMXR+32*, CVIMMXR+33*, CVIMMXR+34*, CVIMMXR+35*, CVIMMXR+36* , CVIMMXR+37*, CIMMXR+19*, CIMMXR+20* |
PXXR("WHOLE K | ILL" , CVIMMXR+26* |
Q | MVDIAGS+7~, MVDIAGS+9!, MVDIAGS+11, MVDONE+2!, MVDONE+4 |
Q(1 | MVDIAGS+9*, MVDONE+2* |
Q(2 | MVDIAGS+9*, MVDONE+3* |
Q(3 | MVDIAGS+10*, MVDONE+2* |
STR | BMES~, BMES+2, MES~, MES+2 |
U | CVIMMXR+40, CIMMXR+23, DOSAGE+8, SPLITDSG+5 |
X | MVDIAGS+7~ |
>> XPDQUES("POS1" | BLDVIMM+10 |
Y | MVDIAGS+7~, MVDIAGS+8*, MVDONE+1* |
ZTCPU | BLDVIMM+2~ |
ZTDESC | BLDVIMM+2~ |
ZTDTH | BLDVIMM+2~ |
ZTIO | BLDVIMM+2~ |
ZTKIL | BLDVIMM+2~ |
ZTPRI | BLDVIMM+2~ |
>> ZTREQ | BLDVIMMT+1*, DOSAGE+1* |
ZTRTN | BLDVIMM+2~ |
ZTSAVE | BLDVIMM+2~ |
ZTSK | BLDVIMM+2~ |
ZTSYNC | BLDVIMM+2~ |
ZTUCI | BLDVIMM+2~ |