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/PLT - PTF ENTRY/EDIT-3 ;11 MAR 91 15:15

Source Information

Source file <DGPTFM5.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 9 Q^DGPTF  ^DGPTFJ  401^DGPTFJC  (,Z)^DGPTFM  PRN3^DGPTFM8  PTFICD^DGPTFUT  ($$CODESYS,$$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  CHK401^DGPTSCAN  
D^DGPTUTL  
VA FileMan 4 ^DIC  ^DIE  $$EXTERNAL^DILFD  ^DIR  
DRG Grouper 2 $$GETDATE^ICDGTDRG  $$ICDDATA^ICDXCODE  

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

Package Total Caller Graph
Registration 4 DGPTFJC  DGPTFM1  DGPTFM2  DGPTFM6  

Entry Points

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

External References

Name Field # of Occurrence
Q^DGPTF Q
^DGPTFJ X+1
401^DGPTFJC X
^DGPTFM NEXM, ADD+2, ADD+4
Z^DGPTFM WR+3, WR+15
PRN3^DGPTFM8 WR+19
PTFICD^DGPTFUT WR+11
$$CODESYS^DGPTIC10 X2
$$GETLABEL^DGPTIC10 WR+9
EFFDATE^DGPTIC10 WR+2, X2+2
WRITECOD^DGPTIC10 WR+14
CHK401^DGPTSCAN X2+6
D^DGPTUTL WR+5
^DIC ADD+2
^DIE X2+5
$$EXTERNAL^DILFD WR+4, WR+5, WR+6, WR+7
^DIR PGBR
$$GETDATE^ICDGTDRG X2+4
$$ICDDATA^ICDXCODE WR+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: "Date of Surg: "
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: "Date of Surg: "
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !," Anesth Tech: ",$$EXTERNAL^DILFD(45.01,6,,$P(S1,U,6)),?45,"First Asst: ",$$EXTERNAL^DILFD(45.01,5,,$P(S1,U,5))
  • Line Location: WR+6
Function Call: WRITE
  • Prompt: !," Source of pay: ",$$EXTERNAL^DILFD(45.01,7,,$P(S1,U,7))
  • Line Location: WR+7
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+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: WR+9
Function Call: WRITE
  • Prompt: " Surg/pro: ",$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: WR+9
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: WR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: WR+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: WR+20
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Enter <RET>: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • DIC
  • Line Location:
    • ADD+2
Routine Call
  • DIE
  • Line Location:
    • X2+5
Routine Call
  • DIR
  • Line Location:
    • PGBR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls,  EXTERNAL^DILFD
45.01 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] EN, WR+19, ADD+1, ADD+2, MOB
^DIC(45.3 - [#45.3] WR+8

Label References

Name Line Occurrences
ADD X+1
EN X2+6, NEXM
MOB EN, X2+6, ADD+3
NEXM EN, X+1
PGBR WR+15
PR X1
Q X+1
WR PR+3
X2 ADD+4
Z WR+5, WR+9
Z1 WR+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA X2+5!*
DA(1 ADD+2*
DG300 WR+19*!
>> DGCODSYS X2*
>> DGIDTS WR+4
>> DGJUMP X2*
>> DGN Z
DGNUM X*, X+1!
DGPTF X2+5*, X2+6!
>> DGPTTMP WR+13*, WR+14
>> DGST X
DGSUR X2*, X2+6!
>> DGVI Z
>> DGVO Z
DGX401 WR+11, WR+17!
DGX401( WR+12
>> DGZS0 DGPTFM5+6*, EN, WR+3, WR+5, WR+11, WR+15, WR+19, X, X2, NEXM*
, ADD+1*, ADD+3*, ADD+4
>> DIC ADD+2*
>> DIC(0 ADD+2*
>> DIE X2+5*
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
DR X2*, X2+5!
DT X2+4
DTIME X+1, PR+3
EFFDATE WR+1~, WR+9, WR+13, WR+14, X2+1~, X2+4
>> HEAD WR+3, WR+15
>> I WR+12*, JUMP*, ADD+3*, MOB*, Z1*
>> I1 MOB*, MOB+1
ICDVDT X2+1~, X2+4*
ICPTVDT X2+1~, X2+4*
IMPDATE WR+1~, X2+1~
IOF WR+3, WR+15
IOSL WR+15
IOST Z
>> L WR+5*, WR+12*, WR+13, WR+14
>> PTF EN, WR+2, WR+11, WR+19, X2, X2+2, X2+4, X2+5, ADD+1, ADD+2
, MOB
S EN, MOB!
S( EN*, WR+5, WR+11, WR+19, X, X2, NEXM, ADD+3, MOB*!
S1 EN*, WR+5, WR+6, WR+7, WR+8, MOB!
S2 MOB!*
>> SU ADD+3, MOB+1*
SUR ADD+1!
SUR( ADD+4*
U WR+5, WR+6, WR+7, WR+8, WR+14
X X+1*, X1, X2, PR+3*, ADD+4*, PGBR~
Y WR+5*, ADD+2, ADD+3, ADD+4, PGBR~
Z WR+3*, WR+5*, WR+9*, WR+15~*, Z*, Z1*, Z1+1
>> Z1 WR+5*, 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