Routine: DGPTFIC

Information

DGPTFIC ;ALB/JDS/ADL,HIOFO/FT - PTF CODE SEARCH ;4/21/2015 4:14pm

Source file <DGPTFIC.m>

Name	Comments	DBIA/ICR reference
EN	;Diagnostic Code PTF Record Search [DG PTF ICD DIAGNOSTIC SEARCH]
E9
F9	; search ^DGPT for the DX codes
GO	;
Q	; kill variables
EN1	;Surgical Code PTF Record Search [DG PTF ICD SURGICAL SEARCH]
E0
F0	; search ^DGPT for the procedure codes
OUT	; -- Output called from Print templates DGICD and DGICD-10
HDRR	;
DHD
C
H
H1
RANGE	;
F	;
E	;
ICDLOOK(TERM,EFFDATE,PROMPT)	; icd lookup ; called from DGPTFIC and DGPTDRG
DIAG	; Ask diagnosis
PROC	; Ask Procedure
401	; Build 25 piece string with OPERATION codes
501	; Build 25 piece string with MOVEMENT codes
601	; Build 25 piece string with PROCEDURE codes
701	; Build 25 piece string with DIAGNOSTIC codes

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Searching the PTF file Select fields to sort by",! Line Location: GO+1
Function Call: WRITE	Prompt: !?DGZJ Condition for execution: I>1 Line Location: OUT+4
Function Call: WRITE	Prompt: DGZT_$P(J,U,1)_" "_Y Line Location: OUT+4
Function Call: WRITE	Prompt: ?DGZJ+23,$P(@(DG2_"$P(J,U,3)"_",0)"),U,1) Line Location: OUT+5
Function Call: WRITE	Prompt: !?DGZJ,$S(I=1:"PRINCIPAL DIAGNOSIS",1:"SECONDARY DIAG "_I),?DGZJ+23,K Line Location: OUT+9
Function Call: READ	Variable: X Timeout: DTIME 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: WRITE	Prompt: !,"Search by Range or Exact match: E// " Line Location: RANGE+7
Function Call: WRITE	Prompt: !,"Must be after start code",! Line Location: F+2