Routine: DGSDUTL

Package	Total	Call Graph
Scheduling	3	$$GETALL^SCAPMCA $$PCPROV^SCAPMCU3 $$NEWPERSN^SCMCGU
VA Fileman	2	^%DT C^%DTC

Package	Total	Caller Graph
Registration	8	DGENRPT2 DGENRPT4 DGRP15 DGRPD DGRUGS DGSTAT VAFHLPD1 VAFHLZPD

Entry Points

Name	Comments	DBIA/ICR reference
S4(SDT,SDX)	;Set second piece of string that displays phone numbers
PHONE(IEN)	;Get provider's pager and phone numbers.
HELP
STL(SDY)	; Set text line ; Input: SDY=string
PCPRACT(DFN,DATE,PCROLE)	; Get PC Practitioner ; DFN - Pointer to Patient file ; DATE - Date of interest ; PCROLE - Practitioner Position where '1' = PC provider ; '2' = PC attending ; '3' = PC associate provider ; Returned: Pointer to file #200 ^ External value of name ; or, if error or none defined, returns a 0 or null
S1(SDT,SDX)	;Set first piece of string ; Input: SDT=subtitle, SDX=data value
PRT	; Write assignment information
PCLINE(DFN,SDATE)	;PC provider, associate and team in a single line ; Input: DFN=patient ifn ; SDATE=effective date (optional) ; Output: PC provider, associate and team formatted as 80 character ; line, or "" if none
S2(SDT,SDX)	;Set second piece of string ; Input: SDT=subtitle, SDX=data value
S3(SDT,SDX)	;Set first piece of string that displays phone numbers ; Input: SDT=subtitle, SDX=data value
TDATA(DFN,VALMCNT,SDATE,SDPRT,SDCOL)	;
LAST()	; Output - the latest date, beginning day or -100 days ; the APPOINTMENT STATUS UPDATE LOG was updated
DATE	; Get Begin Date and End Date
TDQ
PCL(SDSUB)	; Get name value ; Input: SDSUB=node from GETALL^SCAPMCA
PCTEAM(DFN,DATE,ASSTYPE)	; Get Primary Care Team ; DFN - IEN of patient file (#2) ; DATE - Date of interest (Default=DT) ; ASSTYPE - Assignment Type (Default=1 for PC Team)	ICR #5311 Status: Withdrawn Usage: Private
EX

External References

Name	Field # of Occurrence
^%DT	DATE+2, DATE+3
C^%DTC	LAST+3
$$GETALL^SCAPMCA	TDATA+17, PCLINE+9
$$PCPROV^SCAPMCU3	PCPRACT+29
$$NEWPERSN^SCMCGU	PHONE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+3
Function Call: WRITE	Prompt: ! Line Location: DATE+3
Function Call: WRITE	Prompt: "??",!?5,"Ending date must not be before beginning date" Line Location: HELP+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCPT(404.42 - [#404.42]	PCTEAM+11, PCTEAM+12, PCTEAM+13, PCTEAM+14
^SCPT(404.43 - [#404.43]	PCPRACT+16, PCPRACT+17, PCPRACT+18, PCPRACT+19
^SCTM(404.51 - [#404.51]	PCTEAM+16, TDATA+23, TDATA+68
^SCTM(404.57 - [#404.57]	PCPRACT+25
^SDD(409.65 - [#409.65]	LAST+3
^TMP(	TDATA+13!, TDQ!
^TMP("SDPLIST"	TDATA+20, TDATA+21, TDATA+29, TDATA+30, TDATA+37, TDATA+38, TDATA+44, TDATA+45, TDATA+47, TDATA+48 , TDATA+52, TDATA+53, TDATA+55, TDATA+56, TDATA+59, TDATA+60, PCLINE+12!, PCL+2, PCL+5, PCL+8
^TMP("SDTEMP"	TDATA+79, TDATA+80, TDATA+83, TDATA+87, TDATA+88, STL+2, PRT+2, PRT+3

Label References

Name	Line Occurrences
$$PCL	PCLINE+11
DATE	HELP
EX	DATE+2, DATE+3
HELP	DATE+3
PHONE	TDATA+32, TDATA+39, TDATA+74
PRT	TDATA+43, TDATA+77
S1	TDATA+22, TDATA+31, TDATA+39, TDATA+50, TDATA+67, TDATA+71, TDATA+74
S2	TDATA+23, TDATA+32, TDATA+39, TDATA+50, TDATA+68, TDATA+71, TDATA+74
S3	TDATA+33, TDATA+40, TDATA+75
S4	TDATA+33, TDATA+40, TDATA+75
STL	TDATA+25, TDATA+32, TDATA+33, TDATA+39, TDATA+40, TDATA+50, TDATA+66, TDATA+68, TDATA+71, TDATA+74 , TDATA+75
TDQ	TDATA+43, TDATA+77

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1, DATE+2, DATE+3*!
%DT("A"	DATE+2, DATE+3
%DT(0	DATE+1, HELP*
ACTDT	PCTEAM+5~, PCTEAM+11, PCTEAM+12, PCTEAM+13, PCPRACT+9~, PCPRACT+16, PCPRACT+17, PCPRACT+18
ASSTYPE	PCTEAM~, PCTEAM+8*, PCTEAM+11, PCTEAM+12, PCTEAM+13
BEGDATE	DATE+1!, DATE+2*
DATE	PCTEAM~, PCTEAM+8, PCTEAM+11, PCTEAM+15, PCPRACT~, PCPRACT+12, PCPRACT+16, PCPRACT+23, PCPRACT+29
DFN	PCTEAM~, PCTEAM+7, PCTEAM+11, PCTEAM+12, PCTEAM+13, PCPRACT~, PCPRACT+11, PCPRACT+16, PCPRACT+17, PCPRACT+18 , TDATA~, TDATA+9, TDATA+17, TDATA+20, TDATA+21, TDATA+29, TDATA+30, TDATA+37, TDATA+38, TDATA+44 , TDATA+45, TDATA+47, TDATA+48, TDATA+52, TDATA+53, TDATA+55, TDATA+56, TDATA+59, TDATA+60, TDQ , PCLINE~, PCLINE+7, PCLINE+9, PCLINE+12, PCL+2, PCL+5, PCL+8
DT	PCTEAM+8, PCPRACT+12, TDATA+14, PCLINE+7, LAST+3
ENDDATE	DATE+1!, DATE+3*
>> GBL	TDATA+81*, TDATA+85, TDATA+89, TDATA+90
IEN	PHONE~, PHONE+5, PHONE+6, PHONE+7
INACTDT	PCTEAM+5~, PCTEAM+14, PCTEAM+15, PCPRACT+9~, PCPRACT+19, PCPRACT+22, PCPRACT+23
LAST	LAST+2~, LAST+3*, LAST+4
>> LAST1	LAST+3*
LIST	PHONE+3~
LIST(	PHONE+7
PAGER	TDATA+11~, TDATA+33, TDATA+40, TDATA+75, PHONE+4, PHONE+7
PCAP	PCPRACT+9~, PCPRACT+27*, PCPRACT+29
PCROLE	PCPRACT~, PCPRACT+12, PCPRACT+16, PCPRACT+17, PCPRACT+18, PCPRACT+27, PCPRACT+28
PHONE	TDATA+11~, TDATA+33, TDATA+40, TDATA+75, PHONE+4, PHONE+7
>> POP	DATE+1, DATE+2, DATE+3*
RETVAL	PCTEAM+5~, PCTEAM+6, PCTEAM+7, PCTEAM+15, PCTEAM+16, PCTEAM+17, PCPRACT+9~, PCPRACT+10, PCPRACT+11, PCPRACT+24* , PCPRACT+25, PCPRACT+27, PCPRACT+29, PCPRACT+30
SCOK	PCPRACT+9~, PCPRACT+15*
SCPTTMA	PCTEAM+5~, PCTEAM+13*, PCTEAM+14
SCTM	PCTEAM+5~, PCTEAM+12*, PCTEAM+13, PCTEAM+15
SCTP	PCPRACT+9~, PCPRACT+15, PCPRACT+17, PCPRACT+18, PCPRACT+22, PCPRACT+23, PCPRACT+24, PCPRACT+27, PCPRACT+29
SDATE	TDATA~, TDATA+10~, TDATA+14, TDATA+15, TDATA+16, TDATA+17, PCLINE~, PCLINE+7, PCLINE+8, PCLINE+9
SDATE(	TDATA+15, PCLINE+8
>> SDBD	DATE+2*, DATE+3
SDC	PCLINE+6~, PCLINE+10, PCLINE+16, PCLINE+17*, PCLINE+18
SDCOL	TDATA~, TDATA+14*, S2+2, S4+2, PRT+3
>> SDED	DATE+3*
SDI	TDATA+10~, TDATA+13, TDATA+15, TDATA+17, TDATA+20, TDATA+21, TDATA+29, TDATA+30, TDATA+37, TDATA+38 , TDATA+52, TDATA+53, TDATA+83, TDATA+86, TDATA+87, TDATA+88, TDATA+90, TDQ, PRT+1~, PRT+2* , PRT+3, PCLINE+6~, PCLINE+8, PCLINE+9, PCLINE+13, PCLINE+14, PCLINE+15, PCLINE+16, PCLINE+17, PCLINE+20* , LAST+2~, LAST+3*
SDII	TDATA+10~, TDATA+44, TDATA+45, TDATA+55, TDATA+56, TDATA+85, TDATA+88, TDATA+89, TDATA+90, PCLINE+15 , PCLINE+17, PCLINE+18
SDIII	TDATA+10~, TDATA+47, TDATA+48, TDATA+58, TDATA+59*, TDATA+60
SDL	PCLINE+6~, PCLINE+10, PCLINE+17, PCLINE+18
SDLIST	TDATA+10~, TDATA+16, TDATA+17, PCLINE+6~, PCLINE+7, PCLINE+9
SDLN	TDATA+10~, TDATA+16, TDATA+66, TDATA+80, TDATA+90, STL+2
SDN	PCL+2~, PCL+3, PCL+4, PCL+5, PCL+6, PCL+7
SDPH	TDATA+10~, TDATA+23, TDATA+68
SDPO	TDATA+11~, TDATA+69*, TDATA+70, TDATA+71, TDATA+72, TDATA+73, TDATA+74
SDPON	TDATA+11~, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
SDPR	TDATA+11~, TDATA+72*, TDATA+73, TDATA+74
SDPRN	TDATA+11~, TDATA+73*, TDATA+74
SDPRT	TDATA~, TDATA+43, TDATA+77, S2+2, S4+2
SDPTA	TDATA+10~, TDATA+54*, TDATA+57
SDPTA(	TDATA+24*, TDATA+46
SDSUB	PCL~, PCL+5, PCL+8
SDT	S1~, S1+2, S2~, S2+3, S3~, S3+2, S4~, S4+3
SDT0	DATE+1*, EX!, HELP
SDT00	DATE+1, DATE+2, EX!
SDTEAM	TDATA+10~
SDTEAM(	TDATA+54, TDATA+58, TDATA+62*, TDATA+64, TDATA+65, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
SDTL	PCLINE+6~, PCLINE+10, PCLINE+20, PCLINE+21, PCLINE+22
SDTM	TDATA+11~, TDATA+64*, TDATA+65, TDATA+67, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
SDTMN	TDATA+11~, TDATA+65*, TDATA+68, TDATA+69, TDATA+70, TDATA+71, TDATA+72, TDATA+73
SDX	TDATA+10~, TDATA+21, TDATA+22, TDATA+23, TDATA+24, TDATA+30, TDATA+31, TDATA+32, TDATA+38, TDATA+39 , TDATA+45, TDATA+46, TDATA+49, TDATA+53, TDATA+54, TDATA+58, TDATA+62, TDATA+88, TDATA+89, S1~ , S1+2, S2~, S2+3, S3~, S3+2, S4~, S4+3, PCLINE+6~, PCLINE+22*, PCLINE+23
SDX(	PCLINE+13, PCLINE+17, PCLINE+18, PCLINE+20
SDX(1	PCLINE+11*, PCLINE+22
SDX(2	PCLINE+11*, PCLINE+22
SDX(3	PCLINE+11*, PCLINE+22
SDY	TDATA+10~, TDATA+22, TDATA+25, TDATA+31, TDATA+32, TDATA+33, TDATA+39, TDATA+40, TDATA+50, TDATA+56* , TDATA+57, TDATA+58, TDATA+61, TDATA+62, TDATA+67, TDATA+68, TDATA+71, TDATA+74, TDATA+75, TDATA+78* , TDATA+79, TDATA+80, S1+2, S2+3, S3+2, S4+3, STL~, STL+2, PCLINE+6~, PCLINE+10 , PCLINE+17, PCLINE+18
SDZ	TDATA+10~, TDATA+48, TDATA+49, TDATA+50, TDATA+60, TDATA+61, TDATA+62, PCLINE+6~
SDZ(	PCLINE+13*, PCLINE+14, PCLINE+15
TPDALP	PCPRACT+9~, PCPRACT+18*, PCPRACT+19
TPLP	PCPRACT+9~, PCPRACT+17*, PCPRACT+18, PCPRACT+22, PCPRACT+23
U	PCTEAM+14, PCTEAM+16, PCPRACT+19, PCPRACT+25, TDATA+22, TDATA+23, TDATA+24, TDATA+31, TDATA+32, TDATA+39 , TDATA+46, TDATA+49, TDATA+50, TDATA+54, TDATA+57, TDATA+58, TDATA+61, TDATA+62, TDATA+68, PHONE+7 , PCLINE+17, PCLINE+18, PCL+8, LAST+3
>> VALMAR	TDATA+81
VALMCNT	TDATA~, TDATA+85, TDATA+89, TDATA+90*
>> X	LAST+3
>> X1	LAST+3*
>> X2	LAST+3*
>> Y	DATE+2, DATE+3

Customize PDF page

Package: Registration

Routine: DGSDUTL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: