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

Package: Registration

Routine: DGPTFM2


Information

DGPTFM2 ;ALB/DWS - MASTER PROFESSIONAL SERVICE ENTER/EDIT ;6/16/05 8:33am

Source Information

Source file <DGPTFM2.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ;ADD CPT RECORD
ED
JUMP
SET
WRT
PCE
NEXP
EXIT
DEL ;DELETE A CPT RECORD
ASK
NOPROC
N ;ADD CPT CODES TO CPT RECORD
P1
DC ;DELETE A CPT PROCEDURE
QQ
QQA
QEL
F
MOB
SED
FMDIE ;Prompt user for questions and file answers (using DIE)
LOCK()
ERR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?68
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: !,?30,"Initial Date Of Service: ",$$EXTERNAL^DILFD(45,14,,$G(DGIDTS))
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?5,"CPT Record Date/Time: ",Y
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?55,"Visit Service Category: ",$P(DGZPRF(J),U,8)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !,?5,"Referring or Ordering Provider: "
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !,?5,"Rendering Provider: "
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: " Procedures: "
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+13
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter <RET>: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WRT+29
Function Call: WRITE
  • Prompt: !,"CPT Record is being edited by another user"
  • Line Location: PCE+1
Function Call: WRITE
  • Prompt: !,"PTF Record sent to PCE"
  • Line Location: PCE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCE+5
Function Call: WRITE
  • Prompt: !,^(I)
  • Line Location: PCE+6
Function Call: WRITE
  • Prompt: !,"The PTF Record may not have been filed in PCE due to errors."
  • Line Location: PCE+7
Function Call: WRITE
  • Prompt: !,"Press return to continue."
  • Line Location: PCE+8
Function Call: WRITE
  • Prompt: !!,"CPT Records....Deleted"
  • Line Location: ASK+11
Function Call: WRITE
  • Prompt: !!,*7,"No procedures to delete",!
  • Line Location: NOPROC+0
Function Call: WRITE
  • Prompt: !!,"There are no 801 records that can be added to.",*7
  • Line Location: N+1
Function Call: WRITE
  • Prompt: !!,"CPT Code....Deleted"
  • Line Location: QEL+2
Function Call: WRITE
  • Prompt: !,"CPT Record is being edited by another user"
  • Line Location: ERR+0

FileMan Files Accessed Via FileMan Db Call

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