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

Package: Registration

Routine: DGPTFM5


Information

DGPTFM5 ;ALB/MTK/ADL - PTF ENTRY/EDIT-3 ; 11 MAR 91 15:15

Source Information

Source file <DGPTFM5.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 7 Q^DGPTF  ^DGPTFJ  401^DGPTFJC  (,Z)^DGPTFM  PRN3^DGPTFM8  CHK401^DGPTSCAN  D^DGPTUTL  
DRG Grouper 2 $$ICDOP^ICDCODE  $$GETDATE^ICDGTDRG  
VA Fileman 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DGPTFJC  DGPTFM1  DGPTFM2  DGPTFM6  

Entry Points

Name Comments DBIA/ICR reference
PR
Q
EN
Z
JUMP
2 ;;8;9;10;11;12
ADD
1 ;;.01;2;3;4;5;6;7
WR
NEXM
MOB
X
X1
Z1

External References

Name Field # of Occurrence
Q^DGPTF Q
^DGPTFJ X+1
401^DGPTFJC X
^DGPTFM NEXM, ADD+1, ADD+3
Z^DGPTFM WR
PRN3^DGPTFM8 WR+8
CHK401^DGPTSCAN X1+4
D^DGPTUTL WR+1
^DIC ADD+1
^DIE X1+3
$$ICDOP^ICDCODE WR+5
$$GETDATE^ICDGTDRG WR+5, X1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: "Date of Surg: "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: "Date of Surg: "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: "Date of Surg: "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !," Anesth Tech: "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1),?45,"First Asst: "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: !," Source of pay: "
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: $P($P(L,L1,2),";",1)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: ?46,"Surg spec: ",$E($S($D(^DIC(45.3,+$P(S1,U,3),0)):$P(^(0),U,2),1:""),1,23)
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: $S(+DGPTTMP>0&($P(DGPTTMP,U,10)):$P(DGPTTMP,U,5)_" ("_$P(DGPTTMP,U,2)_")",1:"**********-"_L),!?17
  • Line Location: WR+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: WR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: X+1
Function Call: WRITE
  • Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'S' to add a Surgical segment, '^N' for screen N, or '^' to abort:<",DGNUM,">// "
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !,"Enter '^' to stop the display and edit of data",!,"'^N' to jump to screen #N (appears in upper right of screen '<N>'",!,"<RET> to continue on to the next screen or 1-2 to edit:"
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !?10,"1-Surgical information",!?10,"2-Surgical/Procedure Codes"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,"You may also enter any combination of the above, separated by commas(ex:1,3,5)",!
  • Line Location: PR+2
Function Call: READ
  • Prompt: "Enter <RET>: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: Z+0
Function Call: WRITE
  • Prompt: " "
  • Line Location: Z+1
Function Call: WRITE
  • Prompt: Z
  • Line Location: Z1+1
Routine Call
  • DIE
  • Line Location:
    • X1+3
Routine Call
  • DIC
  • Line Location:
    • ADD+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)
^DD(45.01 WR+1, WR+2, WR+3
^DGPT - [#45] EN, WR+8, ADD, ADD+1, MOB
^DIC(45.3 - [#45.3] WR+4

Label References

Name Line Occurrences
ADD X+1
EN X1+4, NEXM
MOB EN, X1+4, ADD+2
NEXM EN, X+1
PR X1
Q X+1
WR PR+3
X1 ADD+3
Z WR+1, WR+5
Z1 WR+1

Naked Globals

Name Field # of Occurrence
^( MOB
^(0 WR+4, ADD*
^(300 WR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA X1+3!*
DA(1 ADD+1*
DG300 WR+8*!
>> DGJUMP X1*
>> DGN Z
DGNUM X*, X+1!
DGPTF X1+3*, X1+4!
>> DGPTTMP WR+5*, WR+6
>> DGST X
DGSUR X1*, X1+4!
>> DGVI Z
>> DGVO Z
>> DGZS0 DGPTFM5+4*, EN, WR, WR+1, WR+8, X, X1, NEXM*, ADD*, ADD+2*
, ADD+3
>> DIC ADD+1*
>> DIC(0 ADD+1*
>> DIE X1+3*
DR X1*, X1+3!
DT X1+2
DTIME X+1, PR+3
>> HEAD WR
>> I WR+5*, JUMP*, ADD+2*, MOB*, Z1*
>> I1 MOB*, MOB+1
ICDVDT X1+1~, X1+2*
ICPTVDT X1+1~, X1+2*
IOF WR
IOST Z
>> L WR+1*, WR+2*, WR+3*, WR+5*, WR+6
>> L1 WR+1*, WR+2*, WR+3*
>> PTF EN, WR+5, WR+8, X1+2, X1+3, ADD, ADD+1, MOB
S EN, MOB!
S( EN*, WR+1, WR+8, X, X1, NEXM, ADD+2, MOB*!
S1 EN*, WR+1, WR+2, WR+3, WR+4, WR+5, MOB!
S2 MOB!*
>> SU ADD+2, MOB+1*
SUR ADD!
SUR( ADD+3*
U WR+1, WR+2, WR+3, WR+4, WR+5, WR+6
>> X X+1*, X1, PR+3*, ADD+3*
>> Y WR+1*, ADD+1, ADD+2, ADD+3
>> Z WR*, WR+1*, WR+5*, Z*, Z1*, Z1+1
>> Z1 WR+1*, Z1
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