Routine: DGPREP0

Information

DGPREP0 ;Boise/WRL/ALB/SCK-Program to Display Pre-Registration List ; 2/24/04 2:11pm

Source Information

Source file <DGPREP0.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Registration	4	EN^VALM ($$SETFLD,FULL)^VALM1 CLEAN^VALM10 DIVISION^VAUTOMA
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DGPRE DISPLAY CALL LIST DGPREP1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point
HDR	; -- header code ; Variables ; DGPSRT - Sort Method for call list display
ENQ
INIT	; -- Retrieve data from call list and build TMP global for sorting Call lsit ; Variables ; DGPNR - ; DGPDATA - 0 Node from ^DGS(41.42,X ; DGPDATA1 - 1 Node from ^DGS(41.42,X ; DGPDIV - Division IEN from ^DGS(41.42, ; DGPDVN - Division Name ; DGPSV - Medical Service for appointment clinic ; DGPAT - Appt. date/time ; DGPPN - Patients name ; DGPNR - Index No. for LM ; DGPSRT - Call list sort method ; DGPN0,DGPN1,DGPNX - Local Var's for $O
EXIT	; -- Exit code
BLDHIST	; Build history of call attempts from ^DGS(41.43, Call log
HELP	; -- help code

Name	Field # of Occurrence
^DIR	INIT+53
EN^VALM	EN+12
$$SETFLD^VALM1	INIT+64, INIT+65, INIT+68, INIT+69, INIT+70, INIT+71, INIT+75, BLDHIST+9
FULL^VALM1	EXIT+5
CLEAN^VALM10	EXIT+6
DIVISION^VAUTOMA	EN+7
$$FMTE^XLFDT	INIT+71
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You do not have the requisite key allocated, contact your Supervisor." Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Sorting Entries..." Line Location: INIT+19
Function Call: WRITE	Prompt: !,"NO SERVICE ENTRY FOR RECORD# ",DGPN1 Line Location: INIT+38
Function Call: WRITE	Prompt: !,"NO PATIENT ENTRY FOR RECORD# ",DGPN1 Line Location: INIT+42
Function Call: WRITE	Prompt: !,"NO PATIENT ENTRY FOR RECORD# ",DGPN1 Line Location: INIT+46
Function Call: WRITE	Prompt: "." Line Location: INIT+48
Function Call: WRITE	Prompt: !!,"Loading Sorted Entries into List..." Line Location: INIT+50
Function Call: WRITE	Prompt: *7,!!,"No appointments were found for the selected divisions" Line Location: INIT+52
Function Call: WRITE	Prompt: "." Line Location: INIT+83
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+12
Routine Call	DIR Line Location: INIT+53

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	INIT+27, INIT+74
^DG(43 - [#43]	EN+6, HDR+6, INIT+18
^DGS(41.42 - [#41.42]	INIT+19, INIT+21, INIT+22, INIT+35, INIT+39, INIT+43, INIT+47, INIT+61, INIT+62
^DGS(41.43 - [#41.43]	BLDHIST+3, BLDHIST+4
^DPT - [#2]	INIT+35, INIT+65
^TMP("DGPRERG"	INIT+16!, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81, EXIT+1!
^TMP("STAT"	BLDHIST+4*, BLDHIST+5, BLDHIST+7, BLDHIST+8, BLDHIST+10!
^TMP($J	INIT+17!, INIT+39, INIT+43, INIT+47*, INIT+50, INIT+58, INIT+59, INIT+60
^XUSEC("DGPRE EDIT"	EN+3
^XUSEC("DGPRE SUPV"	EN+3

Name	Line Occurrences
BLDHIST	INIT+67
ENQ	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EXIT+4!
DGPAT	INIT+34*, EXIT+2!
DGPCH	EXIT+2!
DGPCL	EXIT+2!
DGPDA	EXIT+2!
DGPDATA	INIT+14~, INIT+22, INIT+23, INIT+25, INIT+34, INIT+61, INIT+65, INIT+66, INIT+71, INIT+72 , EXIT+2!
DGPDATA1	INIT+14~, INIT+22, INIT+23, INIT+33, INIT+62, INIT+63, INIT+68, INIT+70, INIT+79, EXIT+2!
DGPDFN	INIT+66*, INIT+78, EXIT+2!, BLDHIST+3
DGPDIV	INIT+14~, INIT+25, INIT+26, INIT+27, INIT+28*, INIT+31, INIT+39, INIT+43, INIT+47
DGPDVN	INIT+14~, INIT+74*, INIT+75
DGPEDIT	EXIT+2!
DGPENT	EXIT+2!
DGPFLG	EXIT+2!
DGPIFN	EXIT+2!
DGPLOC	EXIT+3!
DGPN0	INIT+58*, INIT+59, INIT+60, INIT+74, INIT+81, EXIT+3!
DGPN1	INIT+14~, INIT+21, INIT+22, INIT+35, INIT+38, INIT+39, INIT+42, INIT+43, INIT+46, INIT+47 , INIT+59, INIT+60, INIT+77, EXIT+3!
DGPN2	INIT+14~, EXIT+3!, BLDHIST+1~, BLDHIST+3*, BLDHIST+4
DGPN3	EXIT+3!, BLDHIST+1~, BLDHIST+7*, BLDHIST+8
DGPNR	INIT+57, INIT+64, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81, INIT+82, INIT+84 , EXIT+3!
DGPNX	INIT+14~, INIT+60*, INIT+61, INIT+62
DGPP1	EXIT+3!
DGPP2	EXIT+3!
DGPP3	EXIT+3!
DGPPN	INIT+35*, INIT+42, INIT+43, INIT+46, INIT+47, EXIT+3!
DGPPSRT	EXIT+4!
DGPSRT	HDR+4~, HDR+6, HDR+7, INIT+18, INIT+37, INIT+41, INIT+45
DGPST	EXIT+4!
DGPSV	INIT+33, INIT+38, INIT+39, INIT+63, INIT+69, EXIT+4!
DGPTAT	EXIT+4!, BLDHIST+6, BLDHIST+8, BLDHIST+9
DGQ	INIT+14~, INIT+29!, INIT+30, INIT+31*
>> DGSNGLDV	EN+9*, INIT+27, INIT+30
DIC	EXIT+4!
DIE	EXIT+4!
DIR	INIT+53!, EXIT+4!
DIR(0	INIT+53*
DUZ	EN+3
U	EN+6, HDR+6, INIT+18, INIT+19, INIT+25, INIT+33, INIT+34, INIT+35, INIT+39, INIT+43 , INIT+47, INIT+63, INIT+65, INIT+66, INIT+68, INIT+70, INIT+71, INIT+72, INIT+74, INIT+79 , BLDHIST+4
>> VALMCNT	INIT+84*, INIT+85
>> VALMHDR(1	HDR+5, HDR+7
>> VALMHDR(2	HDR+8*
>> VALMQUIT	INIT+85*
VAUTD	EN+1~, EN+10*, HDR+5, HDR+8, INIT+31
VAUTD(	INIT+31
X	INIT+64, INIT+65, INIT+68, INIT+69, INIT+70, INIT+71, INIT+75, INIT+76, HELP+1, EXIT+4! , BLDHIST+9*
X1	EN+1~
Y	EXIT+4!

Customize PDF page

Package: Registration

Routine: DGPREP0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: