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

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Registration 12 ICDINFO^DGAPI  ($$DATA2PCE,$$DELVFILE)^DGAPI1  Q^DGPTF  ^DGPTFJ  801^DGPTFJC  (,PRV)^DGPTFM  (GETINFO,XREF)^DGPTFM21  REQ^DGPTFM3  
Z^DGPTFM5  PCE^DGPTFQWK  D^DGPTUTL  (CPT,HELP)^DGPTUTL1  
VA FileMan 6 NOW^%DTC  EN^DDIOL  ^DIC  ^DIE  $$EXTERNAL^DILFD  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
DRG Grouper 1 $$GETDATE^ICDGTDRG  
Scheduling 1 CL^SDCO21  

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

Package Total Caller Graph
Registration 7 DGPTFJC  DGPTFM  DGPTFM1  DGPTFM21  DGPTFM3  DGPTFQWK  DGPTFREL  

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

External References

Name Field # of Occurrence
NOW^%DTC ASK+8, QEL
EN^DDIOL ED+12, ED+13
ICDINFO^DGAPI PCE+2
$$DATA2PCE^DGAPI1 PCE+3
$$DELVFILE^DGAPI1 FMDIE+1
Q^DGPTF WRT+22
^DGPTFJ WRT+23
801^DGPTFJC WRT+15
^DGPTFM ADD+3, ADD+5, ADD+8, JUMP+11, WRT, WRT+24, EXIT, ASK+2, ASK+4, ASK+12
, NOPROC, N+1, P1+2, P1+6, DC+4, QQ, QQA+7, QQA+8, QEL+5
PRV^DGPTFM WRT+7, WRT+8
GETINFO^DGPTFM21 JUMP+2, SED
XREF^DGPTFM21 PCE+2
REQ^DGPTFM3 ED+2, JUMP+10, P1+5
Z^DGPTFM5 WRT+4, WRT+10
PCE^DGPTFQWK P1+6, QEL+4
D^DGPTUTL WRT+4, ASK+2, DC+4
CPT^DGPTUTL1 WRT+12
HELP^DGPTUTL1 ED, WRT+25, WRT+29
^DIC ADD+3, JUMP+4, P1+5
^DIE ASK+10, QEL+3, FMDIE+1
$$EXTERNAL^DILFD WRT+2
^DIR ADD+5, WRT+21, ASK+2, ASK+4, P1+2, DC+4, QQ, QQA+7
$$GETDATE^ICDGTDRG QQA+3
$$CPT^ICPTCOD QQA+3
CL^SDCO21 JUMP, P1+3

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
Routine Call
  • DIC
  • Line Location:
    • ADD+3
    • JUMP+4
    • P1+5
Routine Call
  • DIE
  • Line Location:
    • ASK+10
    • QEL+3
    • FMDIE+1
Routine Call
  • DIR
  • Line Location:
    • ADD+5
    • WRT+21
    • ASK+2
    • ASK+4
    • P1+2
    • DC+4
    • QQ
    • QQA+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] EXTERNAL^DILFD
^DGCPT(46 - [#46] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCPT(46 - [#46] ED+7, ED+8, JUMP+1, ASK+7, MOB+4
^DGPT - [#45] ADD+1, ADD+3, ED+2, ED+6, JUMP+11, WRT, PCE, PCE+4, PCE+9, ASK+2
, ASK+10, DC+4, QEL+5, MOB+1, MOB+2, MOB+3, LOCK
^ICPT - [#81] QQA+2
^SC - [#44] WRT+9

Label References

Name Line Occurrences
$$LOCK ED+4, ASK+4, QQA+8
ADD WRT+25
ED JUMP+8, WRT+27
EXIT ED+2, NEXP+1
FMDIE ED+5, ED+9, ASK+8, QEL+2
JUMP JUMP+7
MOB ADD+6, ED+2, JUMP+10, SET, ASK+12, P1+5, QEL+5, F
NEXP SET
NOPROC DEL+1
PCE WRT+28
QQ DC+1
SED JUMP+4, P1+5
SET WRT+26, NEXP+2, F
WRT WRT+28, WRT+29

Naked Globals

Name Field # of Occurrence
^(0 ADD+1*, ASK+2, DC+4, MOB+5
^(9 ED+8, JUMP+1, ASK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A JUMP+4*
A1 QQA*, QEL, QEL+2!
>> ANS DC+1, F
>> CPT QQA*, QQA+2, QQA+3, QQA+6
DA ED!, ED+3*, ED+5, ED+7, ED+9*, ED+10, JUMP+2*, JUMP+5*, JUMP+9!, ASK+8*
, ASK+9*, ASK+12!, P1+4*, QEL*, QEL+3*, SED*
DA(1 ADD+2*, ED+3*, ASK+10*, QEL+3*
>> DFN JUMP, PCE+2, PCE+3, P1+3, FMDIE+1
>> DGDIAG JUMP+1, JUMP+7
DGI ED+7*, ED+8, ED+9, JUMP*, JUMP+1*, JUMP+2, JUMP+9!, ASK+6*, ASK+7*, ASK+8
, ASK+12!, P1+3*
>> DGIDTS WRT+2
DGJUMP ED+1*, ED+12*, ED+13*, JUMP, JUMP+8, JUMP+9!
DGNUM WRT+1~, WRT+14*, WRT+21
DGPNUM ASK+12!
DGPRD ED+1*, ED+6*, ED+9, ED+12, ED+13, ED+14, JUMP, JUMP+9!, P1+3*, P1+5!
, SED
DGPROC ASK+12!
DGPSM ADD+4*, ADD+7, ADD+8*, EXIT!, ASK+12!, MOB+8
>> DGPTSCRN WRT+23*
>> DGPZ DC+1*
>> DGST WRT+15
>> DGVI WRT+1
>> DGVO WRT+1
DGZP ADD+1~*, ADD+7*, ADD+8, ED+1, ED+3, ED+6, ED+8, ED+12, ED+13, ED+14
, JUMP+1, JUMP+11, SET*, WRT, WRT+1, WRT+14, WRT+24*, WRT+26*, PCE+3, NEXP*
, NEXP+1, EXIT*, ASK+2*, ASK+7, ASK+9, P1+3*, DC+4*, DC+5, QQA*, QEL
, QEL+1, QEL+3, QEL+4, F*, FMDIE+1
DGZPRF ADD+7, SET, WRT+11, DEL+1, ASK+1, N+1, P1, DC+3, MOB!, MOB+9*
DGZPRF( ADD+7, ED+1, ED+3, ED+6, ED+8, ED+12, ED+13, ED+14*, JUMP+1, JUMP+11
, SET!, WRT, WRT+3, WRT+5, WRT+6, WRT+7, WRT+8, WRT+9, WRT+11, WRT+14
, WRT+26, NEXP+1, ASK+2, ASK+7, ASK+9, P1+3, DC+4, DC+5, QQA, QEL
, QEL+1, QEL+3, QEL+4, MOB+3*, MOB+4, MOB+5*, MOB+6, MOB+7*, MOB+8!
DIC ADD+2*, ADD+3!, JUMP+5*, JUMP+9!, P1+4*, P1+5!
DIC("S" JUMP+6*, P1+4*
DIC(0 ADD+2*, ED+4*, JUMP+5*, P1+4*
DIE ED+3*, ED+9*, JUMP+2*, JUMP+9!, ASK+8*, ASK+9*, QEL+2*, QEL+3*, SED*, FMDIE+1!
, ERR!
DIK ASK+12!
DIR WRT+22!, ASK+2!, ASK+4!, P1+2!, DC+4!, QQ!, QQA+7!
DIR("?" WRT+20*
DIR("??" WRT+21*, ASK+1*, P1+1*, DC+3*
DIR("A" ADD+5*, WRT+16*, WRT+17*, WRT+18*, WRT+19*, ASK*, ASK+3*, P1*, DC+2*, QQ*
, QQA+1*, QQA+5*, QQA+6*
DIR("B" ADD+5*, WRT+21*, ASK+4*, QQA+7*
DIR(0 ADD+5*, WRT+21*, ASK+1*, ASK+4*, P1*, DC+3*, QQ*, QQA+7*
>> DIRUT ADD+5, WRT+22, ASK+2, DC+4, QQ
DLAYGO ADD+2*, ADD+3!, JUMP+5*, JUMP+9!, P1+4*, P1+5!
>> DOUT ED+5
DR ED+4*, ED+9*, JUMP+2*, JUMP+9!, ASK+8*, ASK+9*, QEL*, QEL+2!, QEL+3*, SED*
DTIME WRT+29, PCE+8
DUOUT JUMP+1!, JUMP+3, JUMP+4, JUMP+7!, JUMP+8!
F MOB+3*, MOB+5*, MOB+8, MOB+9!
>> FLAG ED+2, ED+5*, ED+10*
>> H MOB*, MOB+1*, MOB+2
>> HEAD WRT
I ADD+7*, ADD+8!, WRT+13*, WRT+14!, MOB*, MOB+2*, MOB+3, MOB+9!
>> I2 MOB+1*, MOB+3, MOB+4, MOB+5, MOB+6, MOB+7, MOB+8*, MOB+9
>> IMPDATE ED+12, ED+13
IOF WRT, PCE+5
IOSL WRT+13
J WRT*, WRT+3, WRT+5, WRT+6, WRT+7, WRT+8, WRT+9, WRT+11, WRT+14!
K WRT+11*, WRT+14!, MOB+3*, MOB+4*, MOB+5, MOB+9!
K1 MOB+3*, MOB+5*, MOB+6, MOB+7, MOB+9!
L WRT+7*, WRT+8*, WRT+14!, MOB+4*, MOB+6*, MOB+7
>> M MOB*, MOB+6*
N QQA+3*, QQA+4*, QQA+5, MOB*, MOB+4, MOB+9!
>> PS2 DC+5*, DC+6*, QQ
>> PS2( DC+5*, QQA, QEL
>> PTF ADD+1, ADD+2, ADD+3, ED+2, ED+3, ED+6, ED+7, JUMP+1, JUMP+5, JUMP+11
, WRT, PCE, PCE+2, PCE+3, PCE+4, PCE+9, ASK+2, ASK+7, ASK+9, ASK+10
, P1+4, DC+4, QQA+3, QEL+3, QEL+5, MOB+1, MOB+2, MOB+3, MOB+4, SED
, FMDIE+1, LOCK
REC ED+3*, ED+9*, JUMP+2*, ASK+8*, QEL+1*, SED*, FMDIE+1!, ERR!
>> RES PCE+3*, PCE+4, FMDIE+1*
RFL JUMP+10!
>> SDCLY JUMP, P1+3
>> SDCLY( MOB
U ADD+5, ADD+7, ED+12, ED+13, ED+14, WRT+5, WRT+6, WRT+7, WRT+8, WRT+9
, WRT+11, DEL+1, ASK+1, N+1, P1, DC+3, QQA, QQA+4, QQA+5, QEL
, MOB+6
>> X ADD+8*, ED, ED+1, ED+2, JUMP+8*, WRT+22, WRT+23, WRT+24, WRT+25, WRT+26
, WRT+27, WRT+28, WRT+29*, PCE+8*
>> X1 ED+1*
XREF JUMP+9!
Y ADD+3, ADD+4, ADD+5, ED+5, ED+7, ED+10, JUMP+4, WRT+3*, WRT+4, ASK+2*
, ASK+3, ASK+4, ASK+12!, P1+2, P1+3, P1+5!, DC+4*, QQ, QQA, QQA+7
, SED, FMDIE+1
Z WRT+1*, WRT+3*, WRT+10*, WRT+14!
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