Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGYPREG

Package: Registration

Routine: DGYPREG


Information

DGYPREG ;ALB/REW - POST-INIT CONVERSION ROUTINES OF PATIENT FILE ;12-MAR-93

Source Information

Source file <DGYPREG.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIE  DT^DIQ  
Registration 1 ENDLOOP^DGYPREG3  

Entry Points

Name Comments DBIA/ICR reference
EN1(DGDOMB,DGDOCFL) ;
; INPUT:
; DGDOMB - 0=NOTHING, 1=REPORT, 2=REPORT & CONVERSION
; DGDOCFL- "
EN ;
STTIME(DGDESC)
ENDTIME(DGDESC) ; -get stop time
INITLOOP ;
LOOP ;
NOREC(DA,PC) ;RE-STUFFS NO ANSWER TO ACTIVATE DELETION TRIGGER
QTNOREC
TOTVAAMT(DFN,DGOKPOP) ;Populates TOTAL ANNUAL VA CHECK AMOUNT IGNORES 0nnnnn entries
; DGOKPOP = FLAG TO POPULATE FIELD
QTTVMT
CFL(DFN,DGOKPOP) ;SORT ENTRIES AS BAD, NO CONVERSION NEEDED, AND CONVERTIBLE
; DGOKPOP = FLAG TO POPULATE FIELD
QTCFL
GOODCFL(DFN) ;RETURNS POINTER^DESC (TO INSTITUTION FILE),-1 (BAD),0 (NO CHNG)
QTGCFL
ACTDT(DFN) ;RETURNS LAST ACTIVE DATE
QTACTDT

External References

Name Field # of Occurrence
NOW^%DTC STTIME, ENDTIME+1
ENDLOOP^DGYPREG3 LOOP+9
^DIE NOREC+7
DT^DIQ STTIME, ENDTIME+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> "_DGDESC_" started: "
  • Line Location: STTIME+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: STTIME+0
Routine Call
  • DIE
  • Line Location:
    • NOREC+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APRD" ACTDT+7
^DGS(41.1 - [#41.1] ACTDT+5
^DIC(4 - [#4] GOODCFL+8
^DPT - [#2] LOOP+4, LOOP+6, TOTVAAMT+3, TOTVAAMT+6, TOTVAAMT+8, TOTVAAMT+10*, TOTVAAMT+16*, TOTVAAMT+18*, CFL+11*, GOODCFL+3
, ACTDT+3, ACTDT+4, ACTDT+6
^TMP("DGBDCFL" LOOP+10!, CFL+6*
^TMP("DGBDMB" LOOP+10!, TOTVAAMT+19*
^TMP("DGCFLREP" LOOP+10!
^TMP("DGGDCFL" LOOP+10!, CFL+9*
^TMP("DGGDMB" LOOP+10!, TOTVAAMT+21*
^TMP("DGTOTVA" LOOP+10!

Label References

Name Line Occurrences
$$ACTDT TOTVAAMT+19, TOTVAAMT+21, CFL+6, CFL+9
$$GOODCFL CFL+3
CFL LOOP+8
ENDTIME EN+4
INITLOOP LOOP+1
LOOP EN+4
NOREC TOTVAAMT+9, TOTVAAMT+13
QTCFL CFL+4
QTGCFL GOODCFL+5, GOODCFL+6, GOODCFL+7
QTNOREC NOREC+2, NOREC+5
QTTVMT TOTVAAMT+5
STTIME EN+4
TOTVAAMT LOOP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+3~, STTIME, ENDTIME+1
A ACTDT+1~, ACTDT+5*
ACTDT ACTDT+1~, ACTDT+2*, ACTDT+3*, ACTDT+4*, ACTDT+5*, ACTDT+6*, ACTDT+7*, QTACTDT
AMT TOTVAAMT+2~
AMT( TOTVAAMT+11*, TOTVAAMT+16
AMT(1 TOTVAAMT+19
AMT(2 TOTVAAMT+19
AMT(3 TOTVAAMT+6*, TOTVAAMT+7, TOTVAAMT+10, TOTVAAMT+19
AMT(4 TOTVAAMT+19
CT EN+1~, TOTVAAMT+2~, TOTVAAMT+10*, TOTVAAMT+15*, TOTVAAMT+17, TOTVAAMT+21
DA NOREC~, NOREC+2
DFN LOOP+2~, LOOP+4*, LOOP+5, LOOP+6, LOOP+7, LOOP+8, TOTVAAMT~, TOTVAAMT+3, TOTVAAMT+6, TOTVAAMT+8
, TOTVAAMT+9, TOTVAAMT+10, TOTVAAMT+13, TOTVAAMT+16, TOTVAAMT+18, TOTVAAMT+19, TOTVAAMT+21, CFL~, CFL+3, CFL+6
, CFL+9, CFL+11, GOODCFL~, GOODCFL+3, ACTDT~, ACTDT+3, ACTDT+4, ACTDT+5, ACTDT+6, ACTDT+7
DGCFL GOODCFL+1~, GOODCFL+4*, GOODCFL+5, GOODCFL+6, GOODCFL+7, GOODCFL+8, QTGCFL
DGCFLBD EN+1~, INITLOOP+1*, CFL+7*
DGCFLCN EN+1~, INITLOOP+1*, CFL+10*
DGDAY EN+1~, ENDTIME+3*, ENDTIME+4
DGDESC STTIME~, ENDTIME~, ENDTIME+1
DGDJ EN+1~
DGDOCFL EN1~, EN+2*, INITLOOP+2*, LOOP+8
DGDOMB EN1~, EN+2*, INITLOOP+2*, LOOP+7
DGENDT EN+3~, ENDTIME+1*, ENDTIME+2, ENDTIME+3, ENDTIME+4
DGFLDN NOREC+1~, NOREC+4*, NOREC+5, NOREC+6
DGNODE TOTVAAMT+2~, TOTVAAMT+3*, TOTVAAMT+5, TOTVAAMT+11, TOTVAAMT+12, GOODCFL+1~, GOODCFL+3*, GOODCFL+4, GOODCFL+5
DGOKPOP TOTVAAMT~, TOTVAAMT+9, TOTVAAMT+10, TOTVAAMT+13, TOTVAAMT+16, TOTVAAMT+18, CFL~, CFL+11
DGPCN TOTVAAMT+2~, TOTVAAMT+4*, TOTVAAMT+12
DGPTR4 CFL+2~, CFL+3*, CFL+4, CFL+5, CFL+6, CFL+8, CFL+9, CFL+11
DGRECN TOTVAAMT+2~
DGSTDT EN+3~, STTIME*, ENDTIME+3, ENDTIME+4
DGTOTBD EN+1~, INITLOOP+1*, TOTVAAMT+20*
DGTOTCN EN+1~, INITLOOP+1*, TOTVAAMT+21*
DIE NOREC+1~, NOREC+3*
DIRUT LOOP+2~
DR NOREC+1~, NOREC+6*
DT STTIME*, ACTDT+4
PC NOREC~, NOREC+2, NOREC+4, TOTVAAMT+2~, TOTVAAMT+11*, TOTVAAMT+12, TOTVAAMT+13, TOTVAAMT+16
RWEND LOOP+2~
RWSKIP LOOP+2~, LOOP+3*, LOOP+4
RWSTOP LOOP+2~, LOOP+3*, LOOP+4
RWVCOM LOOP+2~
U TOTVAAMT+5, TOTVAAMT+6, TOTVAAMT+8, TOTVAAMT+10, TOTVAAMT+11, TOTVAAMT+12, TOTVAAMT+16, TOTVAAMT+18, TOTVAAMT+19, CFL+11
, GOODCFL+4, GOODCFL+5, QTGCFL, ACTDT+5
X EN+1~, STTIME, ENDTIME+4*, TOTVAAMT+2~, GOODCFL+1~, GOODCFL+5*, GOODCFL+6*, GOODCFL+7*, GOODCFL+8*, GOODCFL+9*
QTGCFL, ACTDT+1~, ACTDT+3*, ACTDT+5*, ACTDT+6*, ACTDT+7*
XCNP EN+1~
XMZ EN+1~
Y EN+3~, STTIME*, ENDTIME+1*, ACTDT+1~, ACTDT+6*, ACTDT+7*
>> ZTQUEUED STTIME, ENDTIME+1, ENDTIME+4, LOOP+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All