Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls,  EXTERNAL^DILFD
45.01 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call