Routine: DGPASS

Package	Total	Call Graph
Registration	5	QUIT1^DGOASIH START^DGPASS (CLOSE,ZIS)^DGUTQ IN5^VADPT PID^VADPT6
VA Fileman	3	^%DT (C,NOW)^%DTC $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

QUIT1^DGOASIH START^DGPASS (CLOSE,ZIS)^DGUTQ IN5^VADPT PID^VADPT6

^%DT (C,NOW)^%DTC $$GET1^DIQ

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	3	DG ABSENCE OUTPUT DGOASIH DGPASS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?8,"* THERE ARE NO PATIENTS OUT ON ABSENCE FOR "_DGDAY_" *" Line Location: START+3
Function Call: WRITE	Prompt: @IOF,!,"ABSENCE LIST FOR ",DGDAY,?40,"PRINTED: ",DGTIME,?72," PAGE: "_DGPG Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"NAME",?22,"PT ID",?36,"TYPE",?42,"LEAVE",?54,"RETURN",?66,"WARD" Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGCL,!!,?10,"DIVISION: ",$S(DGDV="ZUNKNOWN":"UNKNOWN",1:DGDV),! Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: WR+2
Function Call: WRITE	Prompt: !,$E(DGP,1,20),?22,$P(DGNO,"^"),?36,$P(DGNO,"^",2),?42,$P(DGNO,"^",3),?54,$P(DGNO,"^",4),?66,$E($P(DGNO,"^",5),1,14) Line Location: WR1+1
Function Call: WRITE	Prompt: ! Line Location: RT+1
Function Call: READ	Prompt: "Enter <RET> to continue or ^ to Quit" Formatting: !?22 Timeout: DTIME Variable: X Line Location: RT+2

FileNo	Call Tags
^DGPM - [#405]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+2
^DG(40.8 - [#40.8]	SET+1
^DGPM - [#405]	CK+1, CK+2, CK+5, SET, SET+1
^DGPM("AMV2"	EEN+2
^DGPM("APCA"	CK+5
^DIC(42 - [#42]	SET+1, SET+8
^DPT - [#2]	SET+1
^UTILITY($J	START+3, SET+11, SET+12, WR+1, WRCNT

Name	Field # of Occurrence
^(0	CK+1, CK+5

Name	Field # of Occurrence
>> %	START, EEN
>> %DT	EN*
>> %DT("A"	EN*
>> DFN	EEN+2, CK+5, SET+1, SET+10, SET+11, SET+12, WRCNT
>> DG2	EN*
>> DGA	EEN*, CK+3
>> DGADM	SET*, SET+1
>> DGASIH	SET+11
>> DGCA	CK+1*, CK+2, CK+5
>> DGCD	SET+3, SET+5, DAT*
>> DGCL	START*, HEAD+2
>> DGD	WR+1*
>> DGDAT	EEN+1*, EEN+2, CK+5, SET, OUT+2, OUT+3, OUT+4, OUT+6
>> DGDAY	START+2*, START+3, HEAD
>> DGDFN(	SET+10, SET+11, SET+12
>> DGDT	EEN+2*, CK+5
>> DGDV	SET+1, SET+11, SET+12, HEAD+2, WR, WR+1*, WRCNT
>> DGFL	START+3, CK+4, CK+5, CK+6, SET, SET+9, OUT+2, OUT+3, OUT+4, OUT+6 , WR, WR+1, WRCNT
>> DGI	CK+5*
>> DGIFN	EEN+2*, CK+1, SET+8
>> DGJ	CK+5*
>> DGLV	SET+3, SET+11, SET+12
>> DGNO	WRCNT*, WR1+1
>> DGNOW	EEN*, OUT+5
>> DGP	SET+1, SET+11, SET+12, WR, WR+1*, WRCNT, WR1+1
>> DGPG	HEAD, WR+1
>> DGPGM	EN+1*
>> DGRT	SET+5, SET+12
>> DGSTART	START+1*, EEN+2
>> DGT	EN*, START+1, START+2, EEN+1
>> DGTIME	START*, HEAD
>> DGTP	SET+3, SET+4, SET+12*
>> DGTYP	SET+3, OUT+1, OUT+2, OUT+3, OUT+4, OUT+6
>> DGU	WR, WR+1, WRCNT, WR1, RT+2
>> DGVAR	EN+1*
>> DGW	SET+8, SET+11, SET+12
>> DGX	CK+1, CK+3, SET, SET+3, SET+5, SET+8
>> DGY	CK+5*, OUT+1, OUT+2, OUT+3, OUT+4, OUT+5, OUT+6
DT	EN
DTIME	RT+2
IO	EN+1
IOF	HEAD
IOSL	WR1, RT+1
IOST	WR1, RT
>> M	WR+1*
>> POP	EN+1
>> VA("PID"	SET+11, SET+12*
>> VAIP("D"	SET*
>> VAIP(1	SET
>> VAIP(4	SET+4
>> X	START+1, SET+3, SET+5, DAT, RT+1, RT+2
>> X1	START+1*
>> X2	START+1*
>> Y	EN, START, START+2

Information

Name	Comments	DBIA/ICR reference
CK	;check to see if xfr to absence
QUIT
HEAD
EN
WRCNT
DAT
START
EEN
WR
WR1
SET
RT
OUT	;check to see if patient returned from absence - DGFL=1 if yes