Routine: DGPTFM7

Package	Total	Call Graph
Registration	5	Q^DGPTF ^DGPTFJ Z^DGPTFM HEAD^DGPTFMO FDT^DGPTUTL
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Registration	1	DGPTFM71

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry pt to display MPCR screen ; -- PTF and DGPTFMT must be defined
HELP	; -- screen help
PRT	; -- collect 501 and 535 data and then print ;
INQ	; -- entry point for inquire option
HEADER	;
KILL	; -- kill off locals
BYPASS
DT
LOOP	;

External References

Name	Field # of Occurrence
^%DTC	PRT+6
Q^DGPTF	LOOP+11
^DGPTFJ	LOOP+14
Z^DGPTFM	HEADER+2
HEAD^DGPTFMO	HEADER+1
FDT^DGPTUTL	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," MPCR information not required for this admission." Line Location: LOOP+2
Function Call: WRITE	Prompt: ! Line Location: LOOP+6
Function Call: WRITE	Prompt: X Line Location: LOOP+8
Function Call: READ	Timeout: DTIME Variable: X Line Location: LOOP+10
Function Call: WRITE	Prompt: !,"Press return to see more MPCR information" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Press return to go to the 'MAS' screen" Line Location: HELP+2
Function Call: WRITE	Prompt: !," '^' to stop the display" Line Location: HELP+3
Function Call: WRITE	Prompt: !," '^N' to jump to screen #N (appears in upper right of screen '<N>')" Line Location: HELP+4
Function Call: WRITE	Prompt: @IOF,HEAD,?72 Line Location: HEADER+2
Function Call: WRITE	Prompt: !?23,"Rec",?38,"Losing Ward",?54,"PTF" Line Location: HEADER+3
Function Call: WRITE	Prompt: !?4,"Losing Date",?23,"Type",?28,"Ward/DRG",?38,"MPCR/Spec",?54,"MPCR/Spec",?68,"Lve/Pas/ Los" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$J(DGC,3),?4,DGLDTE,?23,DGMTY,?28,DGWARD,?38,DG5CDR,?54,DGMCDR,?68,DGLVE,"/",DGPASS,"/",DGLOS,!?28,DGMDRG,?38,DG5SP,?54,DGMSP Line Location: PRT+25
Function Call: READ	Timeout: DTIME Variable: X Line Location: INQ+3
Function Call: WRITE	Prompt: *7 Line Location: INQ+3
Function Call: WRITE	Prompt: @IOF,! Line Location: INQ+4
Function Call: WRITE	Prompt: ! Line Location: INQ+4
Function Call: WRITE	Prompt: ! Line Location: INQ+4
Function Call: WRITE	Prompt: !,"("_$P(^DPT(+^DGPT(D0,0),0),U,1)_")",! Line Location: INQ+5
Function Call: WRITE	Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))," " Line Location: DT+0
Function Call: WRITE	Prompt: $J(Y#100\1,2),"," Condition for execution: Y#100 Line Location: DT+0
Function Call: WRITE	Prompt: Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " ",$E(Y_0,9,10),":",$E(Y_"000",11,12) Condition for execution: Y#1 Line Location: DT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRT+8
^DGPT - [#45]	EN+5, EN+6, PRT+2, PRT+4, INQ+5
^DIC(42 - [#42]	PRT+23
^DIC(42.4 - [#42.4]	PRT+11, PRT+12, PRT+13, PRT+17, PRT+18, PRT+19
^DPT - [#2]	INQ+5
^UTILITY($J	EN+5*, EN+7, LOOP+3, KILL+1!, PRT+2, PRT+4, INQ+4

Label References

Name	Line Occurrences
@(	LOOP+9
BYPASS	EN+3
EN	INQ+2
HEADER	LOOP+1
KILL	LOOP+4, LOOP+11, LOOP+14, INQ+2
LOOP	LOOP+12, HELP+6
PRT	LOOP+3

Naked Globals

Name	Field # of Occurrence
^(	EN+5, EN+7*, LOOP+3, PRT+2, PRT+4
^("DG535"	KILL+1!
^("DGM"	KILL+1!
^("P"	PRT+2
^(0	EN+5, EN+6, PRT+2, PRT+4, PRT+23
^(2	INQ+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INQ+4*
>> D0	INQ+2, INQ+5
>> DC	INQ+2*
DG5CDR	KILL+1!, PRT+22*, PRT+25
DG5SP	KILL+1!, PRT+18, PRT+19, PRT+21*, PRT+25
>> DGBRCH	LOOP+9
DGC	BYPASS, LOOP+1, LOOP+3, LOOP+5, LOOP+10, LOOP+12, HELP+1, HELP+2, HELP+6, KILL+1! , PRT+7*, PRT+25
DGCDR	KILL+1!
DGCDR0	KILL+1!, PRT+2, PRT+4, PRT+17, PRT+18, PRT+19, PRT+22, PRT+23
DGFMTDT	EN+4*, EN+6, EN+7, LOOP+3, KILL+1!
DGI0	KILL+1!
DGICDR	KILL+1!
DGLAST	KILL+1!
DGLAST("C"	LOOP+1*, HELP+6
DGLAST("DT"	LOOP+1*, HELP+6
DGLDT	BYPASS, LOOP+1, LOOP+3, HELP+6*, KILL+1!, PRT+2, PRT+4, PRT+6, PRT+8
DGLDTE	KILL+1!, PRT+8*, PRT+25
DGLOS	PRT+6~*, PRT+25
DGLVE	KILL+1!, PRT+7*, PRT+25
DGM0	KILL+1!, PRT+2, PRT+4, PRT+11, PRT+12, PRT+13, PRT+16
DGMAX	EN+3*, LOOP+3, KILL+1!
DGMCDR	KILL+1!, PRT+16*, PRT+25
DGMDRG	KILL+1!, PRT+2, PRT+4, PRT+25
DGMSP	KILL+1!, PRT+12, PRT+13, PRT+14, PRT+15, PRT+20*, PRT+25
DGMTY	KILL+1!, PRT+2, PRT+4, PRT+25
DGPASS	KILL+1!, PRT+7*, PRT+25
>> DGPR	LOOP+3, LOOP+4, HEADER+1, HEADER+2, INQ+2*
>> DGPTFMT	EN+3, LOOP+2
DGPTIFN	EN+3*, EN+5, EN+6, KILL+1!, PRT+2, PRT+4
>> DGPTOUT	LOOP+10*
>> DGPTSCRN	LOOP+14*
DGTOT	EN+3, EN+7, LOOP+3, LOOP+5, LOOP+10, LOOP+12, HELP+1, HELP+2, KILL+1!
DGWARD	KILL+1!, PRT+23*, PRT+25
>> DN	INQ+3*
DT	EN+5
DTIME	LOOP+10, HELP+5, INQ+3
>> HEAD	HEADER+2
I	EN+5, EN+7, LOOP+6*, KILL+1!
IOF	HEADER+2, INQ+4
IOM	INQ+4
IOSL	LOOP+1, INQ+2
IOST	INQ+3
>> NODE	EN+5*
P	EN+6, EN+7, KILL+1!
PTF	EN+3, INQ+2*!
U	EN+5, EN+6, PRT+2, PRT+4, PRT+6, PRT+7, PRT+11, PRT+12, PRT+13, PRT+16 , PRT+17, PRT+18, PRT+19, PRT+22, PRT+23, INQ+3, INQ+5, DT
X	LOOP+3, LOOP+8!, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, HELP+5, PRT+2, PRT+4 , PRT+6, INQ+3*
>> X1	PRT+6*
>> X2	PRT+6*
>> Y	EN+4, EN+5, PRT+2, PRT+4, PRT+8, DT
>> Z	HEADER+2, PRT+2, PRT+4*, PRT+6, PRT+7

Customize PDF page

Package: Registration

Routine: DGPTFM7

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: