Routine: DGPTFIC

Package	Total	Call Graph
Registration	2	IN^DGHELP ICDEN1^DGPTF5
VA Fileman	2	^DIC EN1^DIP

Package

Total

Call Graph

IN^DGHELP ICDEN1^DGPTF5

^DIC EN1^DIP

Package	Total	Caller Graph
Registration	2	DG PTF ICD DIAGNOSTIC SEARCH DG PTF ICD SURGICAL SEARCH

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching the PTF file Select fields to sort by",! Line Location: GO+0
Function Call: WRITE	Prompt: !?DGZJ Condition for execution: I>1 Line Location: OUT+1
Function Call: WRITE	Prompt: DGZT_$P(J,U,1)_" "_Y Line Location: OUT+1
Function Call: WRITE	Prompt: ?DGZJ+23,$P(@(DG2_"$P(J,U,3)"_",0)"),U,1) Line Location: OUT+1
Function Call: WRITE	Prompt: !?DGZJ,$S(I=10:"PRINCIPAL DIAGNOSIS",1:"ICD "_(I-14)),?DGZJ+23,K Line Location: OUT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: C+0
Function Call: WRITE	Prompt: !!,"The search may have more than 1 match per PTF record",!,"Type 'P' to total only PTF records",!,"Type 'I' to total all matches",! Line Location: H+0
Function Call: WRITE	Prompt: !!,"Type 'R' to specify a range of codes",!," 'E' to specify a series of codes to match exactly",! Line Location: H1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: RANGE+0
Function Call: WRITE	Prompt: !,"Must be after start code",! Line Location: F+0
Function Call: WRITE	Prompt: !,"Must be after start code",! Line Location: F+1
Function Call: WRITE	Prompt: !,"Must be after start code",! Line Location: F+2
Routine Call	DIC Line Location: DHD+1 DHD+2 RANGE+5 F+2 E+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OUT+1
^UTILITY($J	OUT+1, OUT+2

Name	Field # of Occurrence
^(	OUT+1
^("A"	OUT+2

Name	Field # of Occurrence
%	Q!, C, RANGE
D0	Q!, OUT+1, OUT+2
DG1	EN!, Q!, DHD+1, DHD+2, DHD+3, RANGE+5, F+2, F+3, E+2
DG2	Q!, OUT*, OUT+1
DG3	Q!
DG4	Q!
DG5	Q!, OUT+1, OUT+2, C*
DG6	Q!, F+2*, F+3
DG7	Q!, DHD+1, RANGE+1*, RANGE+2, F+2, F+3
DG8	Q!
DG9	F9+1, F9+3, F9+5, GO!, Q!, F0+2, F0+4, F0+6, F0+8
DGR	F9+1, Q!, F0+2, RANGE*, RANGE+1
DGZD	Q!
DGZJ	Q!, OUT*, OUT+1, OUT+2
DGZJJ	Q!
DGZT	Q!, OUT, OUT+1
DHD	E9, Q!, E0, DHD+3, F+3
DIC	EN, E9!, GO, Q!, EN1+1*, E0!, DHD+3, RANGE+1, F+3, E+2
DIC("A"	RANGE+2, F+2
DIC("S"	DHD*
DIC(0	RANGE*
DINS	Q!
>> DIO	OUT*
DIP	Q!
DIS	Q!
DIS("0A"	F9, F0+1
DIS("0AA"	F9+3, F0+4
DIS("0AAA"	F9+5, F0+6
DIS("0AAAA"	F0+8*
DIS(0	F9, F0
DJ	Q!, OUT+1, OUT+2
DP	Q!
DTIME	C, RANGE
DTOT	Q!, OUT+1, OUT+2
DTOUT	Q!
DXS	Q!
FLDS	GO*, Q!
I	Q!, OUT+1, OUT+2, DHD+1, DHD+2, DHD+3*
J	Q!, OUT+1, OUT+2
>> K	OUT+2*
L	F9+6, GO, Q!, F0+9*
PROMPT	Q!, DHD*
U	OUT+1, OUT+2, DHD+1, DHD+2, DHD+3, C, RANGE, RANGE+5, F+2, E+2
X	Q!, DHD+1, C, RANGE*, F+3, E+2
X1	Q!
XAA	F9+2, Q!, F0+3
XAAA	F9+4, Q!, F0+5
XAAAA	Q!, F0+7*
Y	Q!, OUT+1*, DHD+1, DHD+2, RANGE+5, F+2, E+2
Y(0	RANGE+5, F+2
Z	Q!, C, RANGE

Information

Name	Comments	DBIA/ICR reference
F0
C
EN
E	;I DG7="Diagnosis" S DIC(0)="XMQZ",PROMPT="Enter "_DG7_" Code to search for: " D ICDEN1^DGPTF5 Q:X="" S X="`"_+Y D ^DIC G Q:Y'>0 S DG1=U_+Y_U D DHD G Q:'$D(X),@("E"_$E(DIC,5))
H1
F9
DHD
Q
EN1	;
RANGE
E9
F	;I DG7="Diagnosis" S PROMPT="Go to "_DG7_" code: " D ICDEN1^DGPTF5 Q:X="" S X="`"_+Y D ^DIC G Q:Y'>0 S DG6=$P(Y(0),U,1)_"! " I DG6']DG1 W !,"Must be after start code",! G F
H
GO
E0
OUT