Routine: DGPTOM2

Information

DGPTOM2 ;ALB/AS - PTF MEANS TEST INDICATOR of 'U' Report (CONT) ; 2 FEB 90 14:30

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Registration	3	$$LST^DGMTU (MT,PM)^DGPTUTL LO^DGUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPTOM1

Entry Points

Name	Comments	DBIA/ICR reference
DT
LN
WLN
PG
HDR
PRT
CONT
NONE
Q

External References

Name	Field # of Occurrence
$$LST^DGMTU	DT+1
MT^DGPTUTL	DT+1
PM^DGPTUTL	DT
LO^DGUTL	DGPTOM2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Total of ",DGTOT," PTF Records" Line Location: DGPTOM2+4
Function Call: WRITE	Prompt: !,DGNAME,?35,SSN,?48,PTF,?56,$S(DGDATE["":"* ",1:""),DGMTDT Line Location: WLN+0
Function Call: WRITE	Prompt: ! Line Location: PG+0
Function Call: WRITE	Prompt: !,"* The date in the APPLICABLE DATE OF TEST column is the date of means test ",!," which is used to determine this Means Test indicator",!,"** Denotes no date of means test on or before this date; therefore, an" Line Location: PG+1
Function Call: WRITE	Prompt: !," appropriate means test indicator cannot be determined",!!?35,"-",DGPAG,"-",! Line Location: PG+2
Function Call: WRITE	Prompt: @IOF,!,"PTF Means Test Indicator of 'U' Report",?58,"Printed: " Line Location: HDR+0
Function Call: WRITE	Prompt: Y,!,"For ",$S(DGD:"discharge",1:"admission")," date range from " Line Location: HDR+0
Function Call: WRITE	Prompt: $P(Y,"@")," to " Line Location: HDR+1
Function Call: WRITE	Prompt: $P(Y,"@"),!,"Sorted by ",$S(DGP:"patient last name",1:"terminal digit order") Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"The following PTF Records have a Means Test Indicator of 'U' (means test is",!,"not done or not completed):",!!?48,"PTF",?56,"* APPLICABLE",!,"PATIENT NAME",?35,"SSN",?48,"NUMBER",?56,"DATE OF TEST",!,DGLN Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: READ	Formatting: ?22 Prompt: "Enter <RET> to continue or ^ to QUIT " Variable: N Timeout: DTIME Line Location: CONT+1
Function Call: WRITE	Prompt: @IOF,!,"No PTF records with Means Test Indicators of 'U' within "_$S(DGD:"discharge",1:"admission")_" date range selected" Line Location: NONE+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LN, HDR, HDR+1
^DGPT - [#45]	DGPTOM2+3, DT, DT+1
^DGPT("AMT"	DGPTOM2+2, DGPTOM2+3
^DPT - [#2]	DT
^UTILITY($J	DGPTOM2+2!, DGPTOM2+4, DT+3, DT+4, LN, PRT, Q!

Label References

Name	Line Occurrences
CONT	HDR
DT	DGPTOM2+3
HDR	DGPTOM2+4, LN
LN	PRT
NONE	DGPTOM2+2, DGPTOM2+4
PG	DGPTOM2+4, HDR
PRT	DGPTOM2+4
Q	DGPTOM2+4
WLN	LN

Naked Globals

Name	Field # of Occurrence
^(	LN
^(0	DGPTOM2+3
^(70	DT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	DT*, DT+1, Q!
DGADM	DT*, Q!
DGD	DT, HDR, NONE, Q!
DGDATE	DT, DT+3, LN, WLN, Q!
DGDT	Q!
DGED	DT, HDR+1, Q!
DGLN	DGPTOM2+2*, HDR+2, Q!
DGMTDT	DT+1, DT+3, DT+4, LN*, WLN, Q!
DGNAME	DT, DT+3, DT+4, LN, WLN, PRT, Q!
DGP	DT+3, HDR+1, Q!
DGPAG	DGPTOM2+2, PG+2, HDR, HDR+2, CONT, Q!
DGPMAN	DT~
DGPMCA	DT~
DGQUIT	DGPTOM2+2, DGPTOM2+4, LN, HDR, PRT, CONT+1, Q!
DGSB	LN, PRT*, Q!
DGSD	DT, HDR+1, Q!
DGTOT	DGPTOM2+2, DGPTOM2+4, WLN, Q!
DT	HDR
DTIME	CONT+1
I	DT, PRT, Q!
IOF	HDR, NONE
IOSL	LN, PG, CONT
IOST	HDR
N	DT+4, PG, PRT, CONT, CONT+1*, Q!
PTF	DGPTOM2+3, DT, DT+1, DT+3, DT+4, LN, WLN, Q!
SSN	DT, DT+3, DT+4, LN, WLN, PRT, Q!
U	DGPTOM2+3, DT+1
Y	LN, PG, HDR, HDR+1, PRT*, Q!

Customize PDF page

Package: Registration