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