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