Routine: DGPTFUT

Information

DGPTFUT ;WOIFO/PLT,HIOFO/FT,WIOFO/PMK - PTF UTILITIES WITH API - ICR #6130 ;05/04/15 10:07am

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
DRG Grouper	1	($$CODEC,$$VLT,$$VST)^ICDEX
Registration	1	($$GET7DATE,$$GETLABEL)^DGPTIC10
VA FileMan	1	$$EXTERNAL^DILFD

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: 25

Package	Total	Caller Graph
Registration	17	DGPTFD DGPTFIC DGPTFM DGPTFM0 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFMO DGPTFVC1 DGPTFVC3 DGPTOLC2 DGPTRI0 DGPTRI2 DGPTRI3 DGPTRI4 DGPTSCAN DGPTSUDO
Clinical Case Registries	3	RORHL081 RORX015A RORXU010
Lab Service	3	LRAPQAT1 LREPI3 LREPI5
Integrated Billing	1	IBCSC4F
Virtual Patient Record	1	VPRSDADG

Entry Points

Name	Comments	DBIA/ICR reference
PTFIEN(DGA,DGB,DGC)	;get the ien's for 701,401,501,601,801 and recd dt/time	ICR #6130 Status: Active Usage: Controlled Subscription
PTFICD(DGA,DGB,DGC,DGD,DGE)	;get icd/poa/description of file #45	ICR #6130 Status: Active Usage: Controlled Subscription
101(PTF)	;ef= value of ptf demographic data
401	;401 multiple operation icd
501	;501 multiple - movement icd/poa
601	;601 multiple - procedure icd
701	;primary and secondary diagnosis icd/poa
801	;801 multiple - cpt code
DOPDES(DGA)	;set diag,oper and procet short/long description in dgd array
ICDCODE(A,B)	;ef icd code or nil
ICDDES(DGFN,DGIEN,DGEDT,A)	;ef= file 80 or 80.1 code description
STR401(DG0,DG1)	; Builds 25 piece string with OPERATION codes ; DG0 = file 45 ien ; DG1 = ien of 401 multiple ; Returns a string of 25 pieces containing the OPERATION codes	ICR #6130 Status: Active Usage: Controlled Subscription
STR501(DG0,DG1)	; Builds 25 piece string with MOVEMENT codes ; DG0 = file 45 ien ; DG1 = ien of 501 multiple ; Returns a string of 25 pieces containing the MOVEMENT codes	ICR #6130 Status: Active Usage: Controlled Subscription
STR601(DG0,DG1)	; Builds 25 piece string with PROCEDURE codes ; DG0 = file 45 ien ; DG1 = ien of 601 multiple ; Returns a string of 25 pieces containing the PROCEDURE codes	ICR #6130 Status: Active Usage: Controlled Subscription
STR701(DG0)	; Builds 25 piece string with DIAGNOSTIC codes ; DG0 = file 45 ien ; Returns a string of 25 pieces containing the 701 codes. First piece is principal DX	ICR #6130 Status: Active Usage: Controlled Subscription
STR701P(DG0)	; Builds 25 piece string with 701 Present On Admission (POA) codes ; DG0 = file 45 ien ; Returns a string of 25 pieces containing the 701 POA codes	ICR #6130 Status: Active Usage: Controlled Subscription
STR501P(DG0,DG1)	; Builds 25 piece string with 501 Present On Admission (POA) codes ; DG0 = file 45 ien ; DG1 = ien of 501 multiple ; Returns a string of 25 pieces containing the 501 POA codes	ICR #6130 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
$$GET7DATE^DGPTIC10	101+4
$$GETLABEL^DGPTIC10	PTFICD+2
$$EXTERNAL^DILFD	501+3, 501+4, 501+5, 701+4, 701+5, 701+6
$$CODEC^ICDEX	ICDCODE+2
$$VLT^ICDEX	ICDDES+2
$$VST^ICDEX	ICDDES+1

FileNo	Call Tags
^DGPT - [#45]	EXTERNAL^DILFD
45.02	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	PTFIEN+3, PTFIEN+7, 101+2, 101+3, 401+2, 501+2, 601+2, 701+2, 801+2, STR401+7 , STR501+7, STR601+7, STR701+6, STR701P+6, STR501P+7
^DPT - [#2]	101+5

Label References

Name	Line Occurrences
$$101	PTFICD+2
$$ICDCODE	401+3, 401+4, 501+3, 501+4, 501+5, 601+3, 601+4, 701+4, 701+5, 701+6 , 801+3
$$ICDDES	DOPDES+2
@(	PTFICD+3
DOPDES	401+5, 501+6, 601+5, 701+7, 801+4

Naked Globals

Name	Field # of Occurrence
^(	PTFIEN+7
^(0	401+2, 501+2, 601+2, 801+2
^(1	401+2, 601+2
^(70	101+3, 701+2
^(71	701+2
^(81	501+2
^(82	501+2, 701+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PTFIEN+2~, PTFIEN+4, PTFIEN+7, 101+1~, 101+3, 101+5, 401+1~, 401+2, 401+3, 501+1~ , 501+2, 501+3, 501+4, 601+1~, 601+2, 601+3, 701+1~, 701+2, 701+3, 701+5 , 801+1~, 801+2*, 801+3, ICDCODE~, ICDCODE+2, ICDDES~, ICDDES+1
B	PTFIEN+2~, PTFIEN+7, 101+1~, 101+3, 101+5, 401+1~, 401+2, 401+4, 501+1~, 501+2 , 501+5, 601+1~, 601+2, 601+4, 701+1~, 701+2, 701+6, ICDCODE~, ICDCODE+2
C	PTFIEN+2~, PTFIEN+6, PTFIEN+7, 101+1~, 101+4, 101+5, 401+1~, 401+3, 401+4, 501+1~ , 501+2, 501+3, 501+4, 501+5, 601+1~, 601+3, 601+4, 701+1~, 701+2, 701+4 , 701+5, 701+6, ICDCODE+1~, ICDCODE+2*, ICDCODE+3
D	101+1~, 101+5, 101+6, 501+1~, 501+3, 501+4, 501+5, 701+1~, 701+5, 701+6
DG0	STR401~, STR401+5, STR401+6, STR401+7, STR501~, STR501+5, STR501+6, STR501+7, STR601~, STR601+5* , STR601+6, STR601+7, STR701~, STR701+4, STR701+5, STR701+6, STR701P~, STR701P+4, STR701P+5, STR701P+6 , STR501P~, STR501P+5*, STR501P+6, STR501P+7
DG1	STR401~, STR401+5, STR401+6, STR401+7, STR501~, STR501+5, STR501+6, STR501+7, STR601~, STR601+5* , STR601+6, STR601+7, STR501P~, STR501P+5*, STR501P+6, STR501P+7
DG401	STR401+4~, STR401+7*, STR401+8
DG401A	STR401+4~, STR401+7*, STR401+9
DG501	STR501+4~, STR501+7*, STR501+8, STR501+9
DG501A	STR501+4~, STR501+7*, STR501+10
DG601	STR601+4~, STR601+7*, STR601+8
DG601A	STR601+4~, STR601+7*, STR601+9
DG701	STR701+3~, STR701+6*, STR701+7
DG701A	STR701+3~, STR701+6*, STR701+8
DG82	STR701P+3~, STR701P+6, STR701P+7, STR501P+4~, STR501P+7, STR501P+8
DGA	PTFIEN~, PTFIEN+3, PTFIEN+4, PTFIEN+6, PTFICD~, PTFICD+2, PTFICD+3, DOPDES~, DOPDES+2
DGB	PTFIEN~, PTFIEN+3, PTFIEN+7, PTFICD~, PTFICD+2, 401+2, 501+2, 601+2, 701+2, 801+2 , DOPDES+1~, DOPDES+2*
DGC	PTFIEN~, PTFIEN+1!, PTFICD~, 401+2, 501+2, 601+2, 801+2
DGC(	PTFIEN+7*
DGC(0	PTFIEN+3*
DGD	PTFICD~, PTFICD+1!, PTFICD+2, 401+2, 501+2, 601+2, DOPDES+2
DGD(	401+3, 401+4, 501+3, 501+4, 501+5, 601+3, 601+4, 701+5, 701+6, DOPDES+2
DGD(0	701+4, 801+3
DGE	PTFICD~, 401+5, 501+6, 601+5, 701+7, 801+4, DOPDES+2
DGEDT	ICDDES~, ICDDES+1, ICDDES+2
DGFN	ICDDES~, ICDDES+1, ICDDES+2
DGIEN	ICDDES~, ICDDES+1, ICDDES+2
DGLOOP	STR401+4~, STR401+8, STR401+9, STR501+4~, STR501+8, STR501+9, STR501+10, STR601+4~, STR601+8, STR601+9* , STR701+3~, STR701+7, STR701+8, STR701P+3~, STR701P+7, STR501P+4~, STR501P+8
DGSTRING	STR401+4~, STR401+7, STR401+8, STR401+9, STR401+10, STR501+4~, STR501+7, STR501+8, STR501+9, STR501+10* , STR501+11, STR601+4~, STR601+7, STR601+8, STR601+9, STR601+10, STR701+3~, STR701+6, STR701+7, STR701+8 , STR701+9, STR701P+3~, STR701P+6, STR701P+7, STR701P+8, STR501P+4~, STR501P+7, STR501P+8, STR501P+9
E	701+1~, 701+3*, 701+4
PTF	101~, 101+2, 101+3, 101+4
U	PTFIEN+3, PTFIEN+7, PTFICD+2, 101+5, 401+2, 401+3, 401+4, 501+2, 501+3, 501+4 , 501+5, 601+2, 601+3, 601+4, 701+3, 701+4, 701+5, 701+6, 801+3, DOPDES+2 , STR401+8, STR401+9, STR501+8, STR501+9, STR501+10, STR601+8, STR601+9, STR701+6, STR701+7, STR701+8 , STR701P+7, STR501P+8

Customize PDF page

Package: Registration