Routine: DGPMOLD1

Package	Total	Call Graph
VA Fileman	3	(,NOW)^%DTC $$GET1^DIQ ^DIR
Registration	1	PID^VADPT6

Package

Total

Call Graph

VA Fileman

(,NOW)^%DTC $$GET1^DIQ ^DIR

Registration

PID^VADPT6

Package	Total	Caller Graph
Registration	1	DGPMOLD

Package

Total

Caller Graph

Registration

DGPMOLD

Name	Field # of Occurrence
^%DTC	WRITE+3
NOW^%DTC	STORE
$$GET1^DIQ	STORE+5, SORT+4
^DIR	HEAD
PID^VADPT6	WRITE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(K,1,25) Line Location: WRITE+1
Function Call: WRITE	Prompt: ?27,$E(VA("BID"),1,8),?37 Line Location: WRITE+1
Function Call: WRITE	Prompt: ?27,$E(VA("BID"),1,8),?37 Line Location: WRITE+1
Function Call: WRITE	Prompt: ?98,$P(DGX,"^",6) Line Location: WRITE+2
Function Call: WRITE	Prompt: ?93,Y Line Location: WRITE+3
Function Call: WRITE	Prompt: ?115,$J($S(X:X,1:1),3) Line Location: WRITE+3
Function Call: WRITE	Prompt: ?120,$S($P(DGX,"^",4)="":"",$P(DGX,"^",4)="a":"ADMITTED",1:"DISMISSED") Line Location: WRITE+4
Function Call: WRITE	Prompt: !?37,"COMMENTS: ",$P(DGX,"^",6) Line Location: WRITE+4
Function Call: WRITE	Prompt: @IOF,!,"CURRENT LODGERS " Line Location: HEAD+1
Function Call: WRITE	Prompt: "AT OTHER FACILITIES " Condition for execution: DGOF=2 Line Location: HEAD+1
Function Call: WRITE	Prompt: "AS OF ",DGNOW,?122,"PAGE: ",$J(DGPG,3) Line Location: HEAD+1
Function Call: WRITE	Prompt: !!,"PATIENT",?27,"SHORT ID",?37,"CHECKED IN",?59,"BED",?76,"REASON" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?98,"COMMENTS" Line Location: HEAD+4
Function Call: WRITE	Prompt: !,Z Line Location: HEAD+4
Function Call: WRITE	Prompt: !!?(62-($L(W)/2)),W Line Location: WARD+1
Function Call: WRITE	Prompt: !!?(60-($L(X)/2)),X Line Location: WARD+2
Routine Call	DIR Line Location: HEAD

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	STORE, WRITE+1, WRITE+3
^DG(40.8 - [#40.8]	DIV
^DG(405.4 - [#405.4]	WRITE+1
^DG(406.41 - [#406.41]	WRITE+1
^DGPM - [#405]	STORE+5, SORT, SORT+1, SORT+6, SORT+7
^DGPM("AMV4"	DR+1
^DGPM("ATID4"	STORE+5
^DGPM("LD"	STORE+2
^DIC(42 - [#42]	STORE+2, SORT+4, SORT+5
^DPT - [#2]	SORT+7
^UTILITY($J	SORT+7*, PRINT+1, NEWWARD+1

Name	Line Occurrences
DIV	STORE+2, SORT+5
DR	STORE+1
HEAD	WRITE, NEWWARD, NEWWARD+1
NEWWARD	PRINT+1
PRINT	STORE+6, DR+2
SORT	STORE+2, STORE+5, DR+1
WARD	NEWWARD+2, HEAD+3, HEAD+4
WRITE	PRINT+1

Name	Field # of Occurrence
^(	STORE+5, DR+1, PRINT+1
^("LD"	SORT+6, SORT+7
^(0	STORE+2, STORE+5, SORT, SORT+1, SORT+4, SORT+5, SORT+7, WRITE+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STORE
>> DFN	SORT+6, SORT+7, WRITE+1
>> DGEND	STORE*, HEAD+2
>> DGFL	PRINT+1, WRITE, HEAD
>> DGFR	STORE, SORT+1
>> DGFROM	STORE*, HEAD+2
>> DGHOW	STORE, STORE+1, SORT, SORT+4, SORT+5, WRITE+2, HEAD+1, HEAD+2, HEAD+3
>> DGNOW	STORE*, HEAD+1
>> DGOF	STORE+5, SORT, NEWWARD+1*, HEAD+1, HEAD+2
>> DGONE	PRINT+1, WRITE, NEWWARD, HEAD, HEAD+3
>> DGPG	PRINT+1, HEAD+1, HEAD+2
>> DGTO	STORE, DR+1
>> DGX	STORE+2, SORT+4, SORT+5, PRINT+1, WRITE+1, WRITE+2, WRITE+3, WRITE+4, DIV*
>> DIR(0	HEAD*
>> I	STORE+2, STORE+5, DR+1, PRINT+1
IOF	HEAD+1, HEAD+2
IOSL	WRITE, NEWWARD
IOST	HEAD
>> J	STORE+2, STORE+5, DR+1, SORT, SORT+4, SORT+6, PRINT+1, WRITE+1, WRITE+3
>> K	DR+1, PRINT+1, WRITE+1
>> L	SORT+6, SORT+7, PRINT+1
>> R	SORT*, SORT+7
>> VA("BID"	WRITE+1
>> VAUTD	DIV
>> VAUTD(	DIV
>> VAUTW	STORE+2, SORT+4
>> VAUTW(	STORE+2, SORT+4
>> W	STORE+1, STORE+2, STORE+5, SORT+4, SORT+7, PRINT+1*, NEWWARD+1, WARD+1, WARD+2
>> X	STORE+5, SORT, SORT+1, SORT+4, SORT+6, SORT+7, WRITE+3, WARD+2*
>> X1	WRITE+3*
>> X2	WRITE+3*
>> Y	STORE, WRITE+1, WRITE+3*, HEAD
Z	HEAD+3!, HEAD+4!

Customize PDF page

Package: Registration

Routine: DGPMOLD1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SORT
HEAD
NEWWARD
WRITE
PRINT	;output for either type
DIV
DR	;lodgers for a date range
WARD	;ward or facility print
STORE