Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTFM1

Package: Registration

Routine: DGPTFM1


Information

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

Source Information

Source file <DGPTFM1.m>

Call Graph

Call Graph

Call Graph Total: 14

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All