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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMTOFA

Package: Registration

Routine: DGMTOFA


Information

DGMTOFA ;ALB/CAW/AEG/PWC - Future Appointments who will require MT ; 4/21/11 10:57am

Source Information

Source file <DGMTOFA.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 4 ^DGINPW  ^DGMTOFA1  $$LST^DGMTU  ($$CLINIC,$$DIV,$$RANGE,CLOSE)^DGMTUTL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 C^%DTC  YN^DICN  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DG CO-PAY TEST FUTURE LIST  DG MEANS TEST FUTURE LIST  DGMTCOM  DGMTM  

Entry Points

Name Comments DBIA/ICR reference
LTR
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
CBLD3(DGCLN) ; Build array of specified Clinics for specified Divisions
SC(DFN) ; Check if patient is SC 0% non-compensable
; Input -- DFN Patient IEN
; Output -- 1=Yes and 0=No
LETTER() ;
; Input - none
; Output - DGYN - yes/no
DOM(DFN,DGT) ; Screen out dom patient
; Input: DFN - Patient IEN
; DGT - Date of visit
SDAM ; Build TMP Global with Appointment API Data for Report
ENQ ;
EN ;
CLN1 ; Loop through appointments
MT ; Is patient going to need to complete a MT/Copay by appt?
MAIN ;
SCQ

External References

Name Field # of Occurrence
C^%DTC MT+12
^%ZIS EN+5
^%ZISC ENQ+1
^%ZTLOAD QUE+6
^DGINPW DOM+6
^DGMTOFA1 MAIN+7
$$LST^DGMTU MT+1
$$CLINIC^DGMTUTL EN+3
$$DIV^DGMTUTL EN+2
$$RANGE^DGMTUTL EN+1
CLOSE^DGMTUTL MAIN+8
YN^DICN LTR
$$SDAPI^SDAMA301 SDAM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Do you want to generate letters"
  • Line Location: LTR+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Y'es to generate letters from the listing or",!,"Enter 'N'o to produce the listing, but not the letters."
  • Line Location: LTR+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] MT+22
^DG(43 - [#43] DOM+6
^DGMT(408.31 - [#408.31] MT+1, MT+9, MT+14, MT+17
^DIC(42 - [#42] DOM+6
^DIC(8 - [#8] MT+11, SC+6
^DPT - [#2] MT+10, MT+22, SC+6, SC+9, SC+11
^IVM(301.5 MT+20
^SC - [#44] MAIN+2, MAIN+4, MT+22
^TMP("DGMTL" ENQ+2!, MT+22*
^TMP("DGMTO" ENQ+2!, MAIN+1!, MT+22*
^TMP($J ENQ+3!, SDAM+5*, SDAM+6!, CLN1+3, CLN1+4, CLN1+5, CLN1+6

Label References

Name Line Occurrences
$$DOM CLN1+7
$$QUE EN+7
$$SC MT+11
CBLD3 MAIN+2, MAIN+4, MAIN+5
CLN1 MAIN+6
ENQ EN+1, EN+2, EN+3, EN+5, EN+6
LTR LTR+3
MAIN EN+6
MT CLN1+9
SCQ SC+7, SC+9
SDAM MAIN+6

Naked Globals

Name Field # of Occurrence
^( MAIN+2, SC+6
^(0 MT+22, DOM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LETTER+4~, LTR*, LTR+2, LTR+3
>> %ZIS EN+5*
CLNARRAY ENQ+3!
CLNARRAY( CBLD3+1*, CBLD3+2, SDAM+3, SDAM+4
DFN ENQ+2!, SC~, SC+6, SC+9, SC+11, DOM~
>> DG1 DOM+6
DGA1 DOM+4~
DGAPT ENQ+2!
DGARRAY ENQ+3!, SDAM+5
DGARRAY("FLDS" SDAM+2*
DGARRAY(1 SDAM+1*
DGARRAY(2 SDAM+4*
DGBEG ENQ+2!, SDAM+1, CLN1+2
DGCLN ENQ+2!, MAIN+2*, MAIN+4*, MAIN+5*, CBLD3~, CBLD3+1, CLN1+3*, CLN1+4, CLN1+5, CLN1+6
, MT+22
DGDATE ENQ+2!, CLN1+2*, CLN1+5*, CLN1+6, CLN1+7, MT+1, MT+12, MT+22
DGDFN ENQ+2!, CLN1+4*, CLN1+5, CLN1+6, CLN1+7, MT+1, MT+10, MT+11, MT+20, MT+22
DGDIV ENQ+2!, MAIN+4*
DGEND ENQ+2!, SDAM+1, CLN1+2
DGFLG ENQ+2!
DGI DOM+4~
DGINFO ENQ+2!
DGINP DOM+4~
DGLINE ENQ+2!
DGLST ENQ+2!, CLN1+2*
DGMT ENQ+2!, MT+1*, MT+9, MT+12, MT+14, MT+17, MT+22
DGMT1 ENQ+2!, MT+1*, MT+12, MT+14, MT+17
DGMTYPT ENQ+2!, MT+1, MT+3
DGNXTMT MT+19~, MT+20*, MT+21*, MT+22
DGPAGE ENQ+2!
DGSTOP ENQ+2!
DGT DOM~
DGTMP ENQ+2!, ENQ+3!, CLN1+2~, CLN1+6*, CLN1+8, MT+22
DGTMP1 ENQ+2!
DGTMP2 ENQ+2!
DGXFR0 DOM+4~
DGYN ENQ+2!, LTR+2*, LTR+4
DIW ENQ+2!
DIWF ENQ+2!
DIWR ENQ+2!
DIWT ENQ+2!
DN ENQ+2!
DT MT+20
I ENQ+3!, MAIN+1*, CBLD3+1, CBLD3+2*, SDAM+3*, SDAM+4
IO("Q" EN+6, QUE+3!
MTQ MT+2~*, MT+3, MT+11*
>> POP EN+5
SDCNT ENQ+3!
SDFORM ENQ+2!
SDLET ENQ+2!
U MAIN+2, MAIN+4, CLN1+8, MT+1, MT+9, MT+12, MT+14, MT+17, MT+22, DOM+6
VA ENQ+2!
VAERR ENQ+2!
VAUTC ENQ+2!, MAIN+2, MAIN+4, MAIN+5
VAUTC( MAIN+5
VAUTD ENQ+2!, MAIN+2, MAIN+4
VAUTD( MAIN+4
X QUE+5*, MT+2~, MT+10*, MT+11, MT+12
>> X1 MT+12*
>> X2 MT+12*
Y EN+7*, SC+3~, SC+4*, SC+6*, SC+7, SC+9*, SC+11*, SCQ, DOM+4~, DOM+5*
, DOM+6*, DOM+7
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ+1
>> ZTRTN QUE+4*
>> ZTSAVE( QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All