DG53P423 ;ALB/RPM - Pre/Post-Install;Nov 13, 2001 ; 1/16/02 3:33pm
Source file <DG53P423.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;Main entry point for Environment check point.
|
|
| PRE | ;Main entry point for Pre-init items.
|
|
| POST | ;Main entry point for Post-init items.
|
|
| PROGCHK(XPDABORT) | ;checks for necessary programmer variables
|
|
| POST1 | ;Rebuild the "AST" index for file #28.11
|
|
| POST2 | ;Set up TaskMan to re-queue PTF records in the background
|
|
| SCAN | ;Scan the Nose and Throat Radium History file (#28.11) for patients
|
|
| GETPTF(DFN,DGDAT,DGPT) | ;Find PTF records transmitted after the verification
; date. Build array subscripted by record numbers set equal to the ; PTF record type. |
|
| REQPTF(DGPTFT,DGPTFC) | ;Re-queue the PTF record for transmission
; Input ; DGPTFT - array of PTF record #'s to resend for a patient ; DGPTFC - count of re-queued PTF records |
|
| UNREL(DGPTF,DGDT) | ;Unrelease the PTF record - borrowed from OK^DGPTFDEL
|
|
| RELEASE(DGPTF) | ;Re-release the PTF record - borrowed from REL^DGPTFREL
|
|
| NOTIFY(DGSTIME,DGTOT,DGPTFNUM,DGMESS) | ;send job msg
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | POST2+7 |
| $$S^%ZTLOAD | SCAN+45 |
| FILE^DICN | RELEASE+14, RELEASE+24 |
| ^DIE | RELEASE+20, RELEASE+28 |
| ^DIK | UNREL+13 |
| ENALL^DIK | POST1+7 |
| $$SITE^VASITE | NOTIFY+14 |
| $$FMTE^XLFDT | NOTIFY+24, NOTIFY+25 |
| $$HTE^XLFDT | POST2+15 |
| $$NOW^XLFDT | POST2+5, SCAN+21, NOTIFY+15 |
| $$SCH^XLFDT | POST2+5 |
| ^XMD | NOTIFY+35 |
| BMES^XPDUTL | PROGCHK+3, POST1+3, POST1+4, POST1+8, POST2+8 |
| MES^XPDUTL | PROGCHK+4, PROGCHK+5, PROGCHK+6, POST2+11, POST2+12, POST2+13, POST2+15, POST2+16 |
| FileNo | Call Tags |
|---|---|
| ^DGNT(28.11 - [#28.11] | Classic Fileman Calls |
| ^DGP(45.83 - [#45.83] | Classic Fileman Calls |
| ^DGP(45.84 - [#45.84] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGNT(28.11 - [#28.11] | POST1+2, POST1+5!, SCAN+31, SCAN+33, SCAN+37 |
| ^DGP(45.83 - [#45.83] | SCAN+25, SCAN+50, GETPTF+24, GETPTF+26, RELEASE+11, RELEASE+16*, RELEASE+18 |
| ^DGPT - [#45] | GETPTF+24, GETPTF+25 |
| ^DGPT("B" | GETPTF+20, GETPTF+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | UNREL+9~, UNREL+13*, RELEASE+8~, RELEASE+19*, RELEASE+21!, RELEASE+25!, RELEASE+27*, RELEASE+29! |
| DA(1 | UNREL+11*, UNREL+12, UNREL+13, RELEASE+23* |
| DD | RELEASE+13! |
| DFN | GETPTF~, GETPTF+20, GETPTF+22 |
| DGDAT | GETPTF~, GETPTF+27, REQPTF+11~, REQPTF+15*, REQPTF+16 |
| DGDFN | SCAN+16~, SCAN+30*, SCAN+31*, SCAN+33, SCAN+44 |
| DGDT | SCAN+17~, SCAN+35*, SCAN+39*, SCAN+40, SCAN+44, UNREL~, UNREL+11 |
| DGDTTMP | SCAN+15~, SCAN+38*, SCAN+39 |
| DGETIME | NOTIFY+13~, NOTIFY+15*, NOTIFY+25 |
| DGI | NOTIFY+13~, NOTIFY+28*, NOTIFY+29 |
| DGIEN | SCAN+12~, SCAN+33*, SCAN+34, SCAN+37 |
| DGMESS | NOTIFY~, NOTIFY+27, NOTIFY+28, NOTIFY+30 |
| DGMESS( | NOTIFY+29 |
| DGMSG | SCAN+10~, SCAN+22*, SCAN+26*, SCAN+29, SCAN+46*, SCAN+51 |
| DGMSG(1 | SCAN+27*, SCAN+47* |
| DGMSG(2 | SCAN+28*, SCAN+48* |
| DGNT | SCAN+14~ |
| DGNT( | SCAN+37*, SCAN+38 |
| DGNT(0 | SCAN+41 |
| DGPT | GETPTF~, GETPTF+28 |
| DGPT( | GETPTF+27* |
| DGPT0 | GETPTF+18~, GETPTF+25* |
| DGPTF | GETPTF+15~, GETPTF+21*, GETPTF+22*, GETPTF+24, GETPTF+25, GETPTF+26, GETPTF+27, REQPTF+9~, REQPTF+13*, REQPTF+14* , REQPTF+15, REQPTF+16, UNREL~, UNREL+13, RELEASE~, RELEASE+23, RELEASE+27 |
| DGPTFARR | SCAN+18~, SCAN+32!, SCAN+44 |
| DGPTFC | REQPTF~, REQPTF+16* |
| DGPTFCNT | SCAN+9~, SCAN+23*, SCAN+29, SCAN+44, SCAN+51 |
| DGPTFNUM | NOTIFY~, NOTIFY+33, NOTIFY+34 |
| DGPTFT | REQPTF~ |
| DGPTFT( | REQPTF+14, REQPTF+15 |
| DGQDT | GETPTF+16~, GETPTF+26*, GETPTF+27 |
| DGQUIT | SCAN+19~, SCAN+22*, SCAN+31, SCAN+49* |
| DGRTY | GETPTF+17~, GETPTF+25*, GETPTF+27, REQPTF+10~, REQPTF+15*, REQPTF+16 |
| DGSITE | NOTIFY+13~, NOTIFY+14*, NOTIFY+21, NOTIFY+22 |
| DGSTART | SCAN+7~, SCAN+21*, SCAN+29, SCAN+51 |
| DGSTAT | SCAN+11~ |
| DGSTIME | NOTIFY~, NOTIFY+24 |
| DGTEXT | NOTIFY+13~ |
| DGTEXT(1 | NOTIFY+20* |
| DGTEXT(10 | NOTIFY+33* |
| DGTEXT(11 | NOTIFY+34* |
| DGTEXT(2 | NOTIFY+21* |
| DGTEXT(3 | NOTIFY+22* |
| DGTEXT(4 | NOTIFY+23* |
| DGTEXT(5 | NOTIFY+24* |
| DGTEXT(6 | NOTIFY+25* |
| DGTEXT(7 | NOTIFY+26*, NOTIFY+29* |
| DGTEXT(8 | NOTIFY+31* |
| DGTEXT(9 | NOTIFY+32* |
| DGTOT | NOTIFY~, NOTIFY+32 |
| DGTOTCNT | SCAN+8~, SCAN+22*, SCAN+29, SCAN+42*, SCAN+51 |
| DGX | SCAN+13~, SCAN+36*, SCAN+37, SCAN+38 |
| DIC | RELEASE+8~, RELEASE+12*, RELEASE+15!, RELEASE+23*, RELEASE+25! |
| DIC(0 | RELEASE+12*, RELEASE+23* |
| DIE | RELEASE+8~, RELEASE+19*, RELEASE+21!, RELEASE+27*, RELEASE+29! |
| DIFROM | NOTIFY+12~ |
| DIK | POST1+1~, POST1+6*, UNREL+9~, UNREL+13* |
| DIK(1 | POST1+6* |
| DINUM | RELEASE+8~, RELEASE+12*, RELEASE+15!, RELEASE+23*, RELEASE+25! |
| DO | RELEASE+13! |
| DR | RELEASE+8~, RELEASE+19*, RELEASE+21!, RELEASE+27*, RELEASE+29! |
| DT | PROGCHK+2, RELEASE+11, RELEASE+12, RELEASE+16, RELEASE+18, RELEASE+19, RELEASE+23, RELEASE+27 |
| DUZ | PROGCHK+2, RELEASE+27, NOTIFY+19 |
| DUZ(0 | PROGCHK+2 |
| U | PROGCHK+2, SCAN+38, SCAN+41, GETPTF+25, GETPTF+27, REQPTF+15, REQPTF+16, RELEASE+18, NOTIFY+21, NOTIFY+22 , NOTIFY+33, NOTIFY+34 |
| X | POST1+1~, RELEASE+8~, RELEASE+12*, RELEASE+23* |
| XMDUZ | NOTIFY+12~, NOTIFY+16* |
| XMSUB | NOTIFY+12~, NOTIFY+17* |
| XMTEXT | NOTIFY+12~, NOTIFY+18* |
| XMY | NOTIFY+12~ |
| XMY( | NOTIFY+19* |
| XMZ | NOTIFY+12~ |
| XPDABORT | ENV+2*, ENV+3, ENV+4!, PROGCHK~, PROGCHK+7* |
| ZTDESC | POST2+1~, POST2+3* |
| ZTDTH | POST2+1~, POST2+5* |
| ZTIO | POST2+1~, POST2+6* |
| ZTQUEUED | POST2+1~ |
| ZTREQ | POST2+1~, SCAN+24* |
| ZTRTN | POST2+1~, POST2+2* |
| ZTSAVE | POST2+1~ |
| ZTSK | POST2+1~, POST2+10, POST2+13 |
| ZTSK("D" | POST2+14, POST2+15 |
| >> ZTSTOP | SCAN+49* |
