Routine: DGPTFM1

Information

DGPTFM1 ;ALB/MTC/PLT,WOIFO/PMK - MASTER DIAG/OP/PRO CODE ENTER/EDIT ;7/6/15 3:37PM

Package	Total	Call Graph
Registration	10	CA^DGPMV ^DGPTFM (C,D,Q,Q1)^DGPTFM0 (ADD,DC,DEL,F,N)^DGPTFM2 (,ADD,R)^DGPTFM4 (,ADD)^DGPTFM5 (,MOB,P,SET)^DGPTFM6 $$CODESYS^DGPTIC10 (CHK401,CHK501,CHK601)^DGPTSCAN (D,EXPL,MT,PM)^DGPTUTL
VA FileMan	4	EN^DDIOL ^DIE ^DIK $$FLDNUM^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: 2

Package	Total	Caller Graph
Registration	2	DGPTFM4 DGPTFM6

Entry Points

Name	Comments	DBIA/ICR reference
D
A
A1
A2
M
Z
C
C1
CEL
CEL1	;
O
O1
O2
S
V
J
Q
QP1
QELP
Q401P
QQ
QEL
P
Q1
T
R
E
MVT	;
I
Y
N
G
F

External References

Name	Field # of Occurrence
EN^DDIOL	Q401P+1
CA^DGPMV	MVT+2
^DGPTFM	A+8, A1, A2+3, M+2, M+11, Z, Z+1, Z+4, C+1, C+2 , C1+1, CEL+5, O, O+1, O+10, O1, O2+2, Q+2, Q+3, QP1+1 , QELP+7, QQ+1, QEL+8
C^DGPTFM0	C1+1
D^DGPTFM0	D
Q^DGPTFM0	QP1+1
Q1^DGPTFM0	QQ+1
ADD^DGPTFM2	I
DC^DGPTFM2	G
DEL^DGPTFM2	Y
F^DGPTFM2	F
N^DGPTFM2	N
^DGPTFM4	V
ADD^DGPTFM4	M
R^DGPTFM4	R
^DGPTFM5	J
ADD^DGPTFM5	S
^DGPTFM6	T, E+2
MOB^DGPTFM6	E, E+1
P^DGPTFM6	P
SET^DGPTFM6	E, E+1
$$CODESYS^DGPTIC10	A, A2+1, M+5, O+2, O2+1
CHK401^DGPTSCAN	Z+4, CEL1+1, O2+2
CHK501^DGPTSCAN	A2+2, M+6
CHK601^DGPTSCAN	QELP+5
D^DGPTUTL	M+4
EXPL^DGPTUTL	CEL, QELP, QEL
MT^DGPTUTL	M+10
PM^DGPTUTL	M+8
^DIE	A2+2, M+5, CEL+4, O2+2, QELP+4, QEL+6
^DIK	Z+4
$$FLDNUM^DILFD	CEL+4, QELP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no movement records that can be added to.",7,7 Line Location: A+8
Function Call: READ	Variable: RC Timeout: DTIME Line Location: A1+0
Function Call: WRITE	Prompt: !!,"Enter the movement record number to add ICD diagnosis to: ",L Line Location: A2+0
Function Call: WRITE	Prompt: !,"Editing ",$S(DA=1:"Discharge ",1:""),"Movement " Line Location: M+4
Function Call: WRITE	Prompt: "of ",Y Condition for execution: Y]"" Line Location: M+4
Function Call: WRITE	Prompt: " Losing Specialty ",X Line Location: M+4
Function Call: WRITE	Prompt: !,"No surgeries to delete",! Line Location: Z+0
Function Call: READ	Variable: RC Timeout: DTIME Line Location: Z+1
Function Call: WRITE	Prompt: ! Line Location: Z+2
Function Call: WRITE	Prompt: !!,"Enter the record # to delete from the PTF file, 1",$S(SU=1:"",1:"-"_SU) Line Location: Z+3
Function Call: WRITE	Prompt: " ",RC,"-DELETED***" Line Location: Z+4
Function Call: WRITE	Prompt: !,"View Surgery Codes first",! Line Location: C+1
Function Call: WRITE	Prompt: !,"No codes to delete",! Line Location: C+2
Function Call: WRITE	Prompt: !! Line Location: CEL+1
Function Call: WRITE	Prompt: " ",L,"-Deleted, " Line Location: CEL1+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: CEL1+1
Function Call: WRITE	Prompt: !,"View Surgery Codes first",! Line Location: O+0
Function Call: WRITE	Prompt: !,"No codes can be added to a Surgery Record.",! Line Location: O+1
Function Call: WRITE	Prompt: !!,"There are no surgery records that can be added to.",*7 Line Location: O+10
Function Call: READ	Variable: RC Timeout: DTIME Line Location: O1+0
Function Call: WRITE	Prompt: !,"View Prodedure Codes first",! Line Location: Q+2
Function Call: WRITE	Prompt: !,"No codes to delete",! Line Location: Q+3
Function Call: WRITE	Prompt: !! Line Location: QELP+1
Function Call: WRITE	Prompt: " ",L,"-",L1 Line Location: QELP+3
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: QELP+3
Function Call: WRITE	Prompt: " ",L,"-Deleted, " Line Location: QELP+5
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: QELP+5
Function Call: WRITE	Prompt: !! Line Location: QEL+1
Function Call: WRITE	Prompt: " ",L,"-Deleted, " Line Location: QEL+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: QEL+7
Routine Call	DIE Line Location: A2+2 M+5 CEL+4 O2+2 QELP+4 QEL+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls
45.01	FLDNUM^DILFD
45.05	FLDNUM^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	M+1
^DGPM - [#405]	M+2
^DGPT - [#45]	A+6, M+2, M+9, O+8, Q401P+1, E
^DIC(42.4 - [#42.4]	M+3

Label References

Name	Line Occurrences
A1	A2
A2	A+9
C1	C1+1
CEL	C
CEL1	CEL+4
MVT	M+1
O1	O2
O2	O+11
Q401P	Q
QEL	Q401P
QELP	Q+1
QP1	QP1+1
QQ	QQ+1
Z	Z+3

Naked Globals

Name	Field # of Occurrence
^("PTF"	M+2
^(0	M+2, M+3
^(70	Q401P+1, E

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	A+1~, A+6, A1+1, Z+2, C1+2, O+3~, O+8, O1+1, QP1+2, QQ+2* , QEL+1
A1	C1, C1+1, C1+2, CEL+1!, QP1, QP1+1, QP1+2, QELP+1!, QQ, QQ+1 , QQ+2, QEL+1!
AM	M+1!
DA	A2+1, A2+2!, M+2, M+4, M+5, M+6!, Z+4!, CEL+4, O2+1, QELP+4* , QEL+1*
DA(1	Z+4, CEL+1, CEL+4, QELP+1, QELP+4, QEL+5
>> DGA	CEL+2, QELP+2, QEL+1*, QEL+2
DGADD	A2+2!, O2+2!
>> DGADM	M+9*
DGCODSYS	A, A+3, A2+1, A2+2!, M+5, M+6!, O+2, O+5, O2+1*
DGJUMP	A2+1, A2+2!, M+5, M+6!
DGMOV	A2+2!, M+5, M+6!
DGPMAN	M+8~, MVT+1~
DGPMCA	M+8~
>> DGPMDA	M+2, MVT+2*
DGPMT	MVT+2*, MVT+3!
DGPTF	A2+1, A2+2!, M+5, M+6!, Z+4!, CEL+4, CEL1+1!, O2+1, O2+2!, QELP+4 , QELP+5!
>> DGPTFE	A2+1, M
DGSUR	Z+4!, CEL+4, CEL1+1!, O2+2*!
DGTYPE	A2+2!, M+6!
>> DGVI	M+1
>> DGVO	M+1
DGXX	A2+2!, M+6!
>> DGZM0	V*
DGZP	QELP+4*, QELP+5!
>> DGZS0	O2+2, J
DIE	A2+1, A2+2!, M+5, M+6!, CEL+2, O2+1, QELP+2, QEL+1
>> DIK	Z+4*
>> DP	CEL+1, QELP+1, QEL+2*
DR	A2+1, A2+2!, M+5, M+6!, CEL+4, CEL1+1!, O2+1, O2+2!, QELP+4, QELP+5! , QEL+5, QEL+7!
DT	E+1
DTIME	A1, Z+1, C1, O1, QP1, QQ
>> I	A, A+2, A+4, A+6, O+2, O+4, O+6, O+8
>> J	A+2, A+4, A+6, CEL+2, O+4, O+6, O+8, QELP+2, QEL+2*
>> L	A, A+2, A+4, A+6, A+8, A+9, A1, A2, CEL+2, CEL+3 , CEL+4, CEL1+1, O+2, O+4, O+6, O+8, O+10, O+11, O1, O2 , QELP+2, QELP+3, QELP+4, QELP+5, QEL+2*, QEL+3, QEL+4, QEL+5, QEL+7
>> L1	CEL+3, CEL+4, QELP+3, QELP+4, QEL+3*, QEL+4, QEL+5
>> L2	A, A+2, A+3, A+4, A+5, A+6, O+2, O+4, O+5, O+6* , O+7, O+8*
M	M+1!, M+4!
M(	A+2, A+4, A+6, A2+2
>> P(	QELP+4
>> P2	Q+2, Q+3
>> P2(	QELP+3, QELP+4
>> P2P	Q
>> P2P(	QEL+3, QEL+5
>> PM	A
PTF	A, A+6, A2+1, M+2, M+5, M+9, Z+4, CEL+1, CEL+2, CEL+4 , O+2, O+8, O2+1, QELP+1, QELP+2, QELP+4, Q401P+1, QEL+1, QEL+5, E , MVT+1~
>> RC	A+9, A1, A1+1, A2, A2+2, Z+1, Z+2, Z+3, Z+4, O+11 , O1, O1+1, O2, O2+2
>> S(	Z+3, Z+4, CEL+4, O+4, O+6, O+8, O2+2
>> S2	C+1, C+2, O, O+1
>> S2(	CEL+3, CEL+4
>> ST	Z+1, Z+4, CEL+5, O+10, O1, O2+2, QELP+7*
>> SU	Z, Z+1, Z+3, O+2
T	M+1!
U	A+2, A+4, A+6, A1, M+3, Z+1, C1+1, CEL+4, O+4, O+6 , O+8, O1, QP1+1, QELP+4, QQ+1
X	M+1, M+3, M+4, CEL+1!, QELP+1!, QEL+1!
>> Y	M+2, M+3, M+4, MVT+2
>> Z	A1, A2, Z+1, Z+3, C, O1, O2*, Q+1, Q401P

Customize PDF page

Package: Registration