DG53P423 ;ALB/RPM - Pre/Post-Install;Nov 13, 2001 ; 1/16/02 3:33pm
Source file <DG53P423.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRE | ;Main entry point for Pre-init items. | |
| 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. | |
| PROGCHK(XPDABORT) | ;checks for necessary programmer variables | |
| UNREL(DGPTF,DGDT) | ;Unrelease the PTF record - borrowed from OK^DGPTFDEL | |
| SCAN | ;Scan the Nose and Throat Radium History file (#28.11) for patients | |
| RELEASE(DGPTF) | ;Re-release the PTF record - borrowed from REL^DGPTFREL | |
| POST2 | ;Set up TaskMan to re-queue PTF records in the background | |
| POST1 | ;Rebuild the "AST" index for file #28.11 | |
| 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 | |
| ENV | ;Main entry point for Environment check point. | |
| POST | ;Main entry point for Post-init items. | |
| 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 | 
|---|---|
| ^DGP(45.83 - [#45.83] | Classic Fileman Calls | 
| ^DGP(45.84 - [#45.84] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DGNT(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 | 
| Name | Line Occurrences | 
|---|---|
| $$GETPTF | SCAN+44 | 
| $$UNREL | REQPTF+16 | 
| NOTIFY | SCAN+29, SCAN+51 | 
| POST1 | POST+2 | 
| POST2 | POST+3 | 
| PROGCHK | ENV+3 | 
| RELEASE | REQPTF+16 | 
| REQPTF | SCAN+44 | 
| >> | 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* |