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 - MASTER DIAG/OP/PRO CODE ENTER/EDIT ;4/4/05 3:08pm

Source Information

Source file <DGPTFM1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 9 CA^DGPMV  ^DGPTFM  (C,D,Q)^DGPTFM0  (ADD,DC,DEL,F,N)^DGPTFM2  (,ADD,R)^DGPTFM4  (,ADD)^DGPTFM5  (,MOB,P,SET)^DGPTFM6  (CHK401,CHK501)^DGPTSCAN  
(D,EXPL,MT,PM)^DGPTUTL  
VA Fileman 2 ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPTFM4  DGPTFM6  

Entry Points

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

External References

Name Field # of Occurrence
CA^DGPMV MVT+2
^DGPTFM A+1, A1, A2+3, M+2, M+11, Z, Z+1, Z+4, C+1, C+2
, C1+1, CEL+5, O+1, O1, O2+2, QQ+1, QEL+2
C^DGPTFM0 C1+1
D^DGPTFM0 D
Q^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
CHK401^DGPTSCAN Z+4, CEL1+1, O2+2
CHK501^DGPTSCAN A2+2, M+6
D^DGPTUTL M+4
EXPL^DGPTUTL CEL
MT^DGPTUTL M+10
PM^DGPTUTL M+8
^DIE A2+2, M+5, CEL+4, O2+2, QEL+1
^DIK Z+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+1
Function Call: READ
  • Timeout: DTIME
  • Variable: RC
  • 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
  • Timeout: DTIME
  • Variable: RC
  • 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 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: !!,"There are no surgery records that can be added to.",*7
  • Line Location: O+1
Function Call: READ
  • Timeout: DTIME
  • Variable: RC
  • Line Location: O1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: QEL+0
Function Call: WRITE
  • Prompt: " ",L,"-Deleted, "
  • Line Location: QEL+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: QEL+1
Routine Call
  • DIE
  • Line Location:
    • A2+2
    • M+5
    • CEL+4
    • O2+2
    • QEL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
A1 A2
A2 A+2
C1 C1+1
CEL C
CEL1 CEL+4
MVT M+1
O1 O2
O2 O+2
QEL Q
QQ QQ+1
Z Z+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A A1+1, Z+2, C1+2*, O1+1, QQ+2*, QEL
A1 C1*, C1+1*, C1+2, CEL+1!, QQ*, QQ+1*, QQ+2, QEL!
AM M+1!
DA A2+1*, A2+2!, M+2*, M+4, M+5*, M+6!, Z+4!*, CEL+4*, O2+1*, QEL*
DA(1 Z+4*, CEL+1*, CEL+4*, QEL+1*
>> DGA CEL+2, QEL*, QEL+1
DGADD A2+2*!, O2+2*!
>> DGADM M+9*
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!
>> DGPTFE M
DGSUR Z+4*!, CEL+4*, CEL1+1!, O2+2*!
>> DGVI M+1
>> DGVO M+1
>> DGZM0 V*
>> DGZS0 O2+2*, J*
DIE A2+1*, A2+2!, M+5*, M+6!, CEL+2*, O2+1*, QEL*
>> DIK Z+4*
>> DP CEL+1*, QEL+1*
DR A2+1*, A2+2!, M+5*, M+6!, CEL+4*, CEL1+1!, O2+1*, O2+2!, QEL+1*!
DT E+1
DTIME A1, Z+1, C1, O1, QQ
>> I A*, O*
>> J A*, CEL+2*, O*, QEL+1*
>> L A*, A+1, A+2*, A1, A2, CEL+2*, CEL+3, CEL+4, CEL1+1, O*
, O+1, O+2*, O1, O2, QEL+1*
>> L1 CEL+3*, CEL+4, QEL+1*
>> L2 A*, O*
M M+1!, M+4!
M( A, A2+2
>> P2( QEL+1
>> PM A
PTF A2+1, M+2, M+5, M+9, Z+4, CEL+1, CEL+2, CEL+4, O2+1, QEL
, QEL+1, E, MVT+1~
>> RC A+2*, A1*, A1+1*, A2, A2+2, Z+1*, Z+2*, Z+3, Z+4, O+2*
, O1*, O1+1*, O2, O2+2
>> S( Z+3, Z+4, CEL+4, O, O2+2
>> S2 C+1, C+2
>> S2( CEL+3, CEL+4
>> ST Z+1*, Z+4*, CEL+5*, O+1*, O1*, O2+2*
>> SU Z, Z+1, Z+3, O
T M+1!
U A, A1, M+3, Z+1, C1+1, CEL+4, O, O1, QQ+1
X M+1*, M+3*, M+4, CEL+1!, QEL!
>> Y M+2*, M+3*, M+4, MVT+2
>> Z A1, A2*, Z+1, Z+3*, C, O1, O2*, Q
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