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