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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPTFM

Package: Registration

Routine: DGPTFM


Information

DGPTFM ;ALB/MTC/PLT - PTF OP-PRO-DIAG ;07/01/2015 8:03 AM

Source Information

Source file <DGPTFM.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Registration 17 ICDINFO^DGAPI  IN^DGHELP  (ORDER,Q)^DGPTF  EN1^DGPTF4  ^DGPTFJ  MAS^DGPTFJC  ^DGPTFM  (EN,PRC)^DGPTFM0  
HELP^DGPTFM1A  MOB^DGPTFM2  XREF^DGPTFM21  GETVAR^DGPTFM6  (SD3,WD3)^DGPTFM8  PTFICD^DGPTFUT  ($$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  D^DGPTUTL  
CPT^DGPTUTL1  
DRG Grouper 2 $$GETDATE^ICDGTDRG  $$ICDDATA^ICDXCODE  
VA FileMan 2 ^DIE  ^DIR  
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: 13

Package Total Caller Graph
Registration 13 DGPTF1  DGPTF4  DGPTFJC  DGPTFM  DGPTFM0  DGPTFM1  DGPTFM1A  DGPTFM2  
DGPTFM3  DGPTFM4  DGPTFM5  DGPTFM6  DGPTFM7  

Entry Points

Name Comments DBIA/ICR reference
GET ;set m,m3 local array of movement records
DIAG ;
WD ;
WD1 ;
WD2 ;
NDG
SER ;
SERV ;
SD ;
SD1 ;
SD2 ;
NSR
WR
PRO ;load 401p code before 2871000
PROC ; Display procedures in field 45.01 - 45.05
ENC ;G PRO1:$Y>7,PRO1:'$P(DGZPRF,U,3)
PF
CKSCI(IEN)
NPR
NPS
DONE
PRO1 ;SET MENU TYPE AND DISPLAY MENU
A
PRV
X ;
X1
Z ;
EN
PGBR

External References

Name Field # of Occurrence
ICDINFO^DGAPI PF+1
IN^DGHELP A+3
ORDER^DGPTF GET+6, NDG+2
Q^DGPTF A+3
EN1^DGPTF4 DONE
^DGPTFJ A+3
MAS^DGPTFJC PRO1+4
^DGPTFM X+1, X1, X1+1
EN^DGPTFM0 EN
PRC^DGPTFM0 SERV+4
HELP^DGPTFM1A A+6
MOB^DGPTFM2 GET+7
XREF^DGPTFM21 PF+1
GETVAR^DGPTFM6 GET+7
SD3^DGPTFM8 SERV+2
WD3^DGPTFM8 DIAG+3
PTFICD^DGPTFUT WD+5, SD+2
$$GETLABEL^DGPTIC10 WD+3, SD2+1, PROC+6, PF+9
EFFDATE^DGPTIC10 DGPTFM+6, WD+2, PRO1+2
WRITECOD^DGPTIC10 WD1+3, SD1+3, PROC+10, PF+12
D^DGPTUTL WD2+2, SD2+1, PF+2
CPT^DGPTUTL1 PF+7
^DIE X1+1
^DIR PGBR
$$GETDATE^ICDGTDRG PRO1+3
$$ICDDATA^ICDXCODE WD1+1, SD1+1, PROC+8, PF+11
CL^SDCO21 GET+7, PF+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG+3
Function Call: WRITE
  • Prompt: !?2,"Movement Diagnosis: ",$$GETLABEL^DGPTIC10(DGPTDAT,"D")
  • Line Location: WD+3
Function Call: WRITE
  • Prompt: !,?L1,$J(M2,3)," "
  • Line Location: WD1+2
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: WD1+4
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: WD1+4
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WD1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WD1+7
Function Call: WRITE
  • Prompt: !?L5,"Move #",+L6
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " D/C"
  • Condition for execution: +Z=1
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " ",Y," "
  • Line Location: WD2+2
Function Call: WRITE
  • Prompt: " <",$S($P(Z3,U,18)=1:"",1:"N"),"SC"_$S($P(Z3,U,26)="Y":",AO",1:"")_$S($P(Z3,U,27)="Y":",IR",1:"")_$S($P(Z3,U,28)="Y":",SWAC",1:"")_$S($P(Z3,U,32)="Y":",SHAD",1:"")_">"
  • Line Location: WD2+3
Function Call: WRITE
  • Prompt: $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10)
  • Line Location: WD2+5
Function Call: WRITE
  • Prompt: $E($P(^(0),U,1),1,10)
  • Line Location: WD2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+2
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: SD1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SD1+5
Function Call: WRITE
  • Prompt: !?L5,L6,"-Surgery date: ",Y,$$GETLABEL^DGPTIC10(EFFDATE,"P")
  • Line Location: SD2+1
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,$J(P2P,3)," "
  • Line Location: PROC+10
Function Call: WRITE
  • Prompt: !,J,"-CPT Capture Date/Time: ",Y
  • Line Location: PF+2
Function Call: WRITE
  • Prompt: " (cont.)"
  • Condition for execution: ($P(DGZPRF,U,2)-1!($G(PGBRK)))
  • Line Location: PF+2
Function Call: WRITE
  • Prompt: !,?5,"Referring or Ordering Provider: "
  • Line Location: PF+3
Function Call: WRITE
  • Prompt: !,?5,"Rendering Provider: "
  • Line Location: PF+4
Function Call: WRITE
  • Prompt: !,?5,"Rendering Location: ",$P($G(^SC($P(DGZPRF(J),U,5),0)),U)
  • Line Location: PF+5
Function Call: WRITE
  • Prompt: !,?2,PS2," "
  • Line Location: PF+7
Function Call: WRITE
  • Prompt: !,?4
  • Line Location: PF+9
Function Call: WRITE
  • Prompt: DS," Related Diagnosis",$$GETLABEL^DGPTIC10(+DGZPRF(J),"D")," ",DS
  • Line Location: PF+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+8
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+8
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+8
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRO1+9
Function Call: WRITE
  • Prompt: !," ^=Abort <RET> to Continue:<",DGNUM,">// "
  • Line Location: PRO1+9
Function Call: WRITE
  • Prompt: !,"***WARNING: This is a Fee Basis PTF record*** 801 encounters are not allowed."
  • Line Location: A+4
Function Call: WRITE
  • Prompt: $P(^(0),U)
  • Line Location: PRV+0
Function Call: WRITE
  • Prompt: L
  • Line Location: PRV+1
Function Call: READ
  • Variable: RC
  • Timeout: DTIME
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !!,"Delete Patient move <1",$S(PM<3:"",1:"-"_(PM-1)),">: "
  • Line Location: X+1
Function Call: WRITE
  • Prompt: !
  • Line Location: X+2
Function Call: WRITE
  • Prompt: !!,"Enter the record # to delete from the PTF file, 1",$S(PM<3:"",1:"-"_(PM-1))
  • Line Location: X+3
Function Call: WRITE
  • Prompt: !,*7,"Cannot delete discharge movement",!
  • Line Location: X1+0
Function Call: WRITE
  • Prompt: " ",RC,"-DELETED***"
  • Line Location: X1+1
Function Call: WRITE
  • Prompt: @DGVI,Z,@DGVO
  • Line Location: Z+1
Routine Call
  • DIE
  • Line Location:
    • X1+1
Routine Call
  • DIR
  • Line Location:
    • PGBR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGICD9(46.1 - [#46.1] CKSCI+2
^DGPT - [#45] DGPTFM+8, DGPTFM+9, DGPTFM+10, DGPTFM+11, GET+1, GET+3, GET+7, NDG, NSR, PROC+3
, NPR, A+4
^DIC(42.4 - [#42.4] WD2+4, WD2+5
^SC - [#44] PF+5
^TMP("PTF" DGPTFM+4!
^UTILITY($J GET+10!, WD1+6!*
^VA(200 - [#200] PRV

Label References

Name Line Occurrences
@( A+5, A+6
CKSCI PF+14
DGPTFM A+4
DIAG NDG+2
GET NDG+2
NPR PRO+5
PF NPS
PGBR WD1+7, SD1+5
PRO SER+5, NPR
PRO1 DIAG+2, DIAG+3, SERV+2, PRO+3, PROC+2, ENC+1, ENC+2, PF+19
PRV PF+3, PF+4
SD SERV+2
SD1 SD+3
SD2 SERV+2
SER DIAG+4
SERV SER+5, NSR+1
WD DIAG+3
WD1 WD+8
WD2 DIAG+3
WR GET+9, NDG, NSR+1, NPR, NPS, A+5, EN
X X+3
X1 X+1
Z WD1+7, SD1+5, WR

Naked Globals

Name Field # of Occurrence
^( GET+2, NDG, NSR
^("401P" PROC+3, NPR
^("P" GET+3
^(0 WD2+6, PRV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A+6
>> A A+3*, A+6, X+2
>> ANS PRO1+9*, A+3, A+5
CD PF+10*, PF+11, PF+12, PF+15*, PF+19!
>> CKSCI PF+10, CKSCI+2*, CKSCI+5*
>> DA X1+1*
>> DA(1 X1+1*
>> DFN GET+7, PF+1
DGINFO CKSCI+1~, CKSCI+2*, CKSCI+3, CKSCI+8
>> DGLOC PF+10*, PF+14, PF+15*
>> DGLST PF*
DGMMORE DGPTFM+5~, DGPTFM+12*
DGMOVCNT DGPTFM+5~, DGPTFM+7*, DGPTFM+8*
DGMPOA WD+1~, WD+7*, WD1+4, WD1+6
DGNUM PRO1+4*, PRO1+9!
>> DGPC GET+8*
DGPMORE DGPTFM+5~, DGPTFM+13*
>> DGPRCNT DGPTFM+11*, DGPTFM+12, DGPTFM+13, PRO+3
>> DGPROC PROC+4*, PROC+6
DGPROCNT DGPTFM+5~, DGPTFM+7*, DGPTFM+10*, DGPTFM+12, DGPTFM+13
>> DGPTDAT WD+3, PROC+6
>> DGPTFE PRO1+5, A+2
>> DGST PRO1+4
>> DGSTRT PF*, PF+10, PF+15*
DGSURCNT DGPTFM+5~, DGPTFM+7*, DGPTFM+9*, DGPTFM+12
>> DGVI Z+1
>> DGVO Z+1
DGX401 SD+2, SD+4!
DGX401( SD+3
DGX501 WD+5, WD+10!
DGX501( WD+6
DGZDIAG DIAG+1*, SER+1!, PRO+1!, PROC+13!, PRO1+4, A+5
>> DGZPRF ENC+1, PF, PF+2, PF+7, PF+17*, PF+18*, PRO1+4, A+5
>> DGZPRF( PF, PF+1, PF+3, PF+4, PF+5, PF+7, PF+9, PF+10, PF+11, PF+12
, PF+14, PF+16, PF+17
DGZPRO DIAG+1!, SER+1!, PRO+2*, PROC+13!, PRO1+4, A+5
DGZSER DIAG+1!, SER+2*, SERV+3!, PRO+1!, PROC+13!, PRO1+4, A+5
DGZSUR DIAG+1!, SER+1!, PRO+1!, PROC+13!, PRO1+4, A+5
>> DIE X1+1*
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
>> DP X1+1*
DR X1+1*!
DS PF+9*, PF+19!
DT PRO1+3
DTIME PRO1+9, X+1
EFFDATE DGPTFM+5~, WD1+1, WD1+3, SD1+1, SD1+3, SD2+1, PROC+8, PROC+10, PRO1+2, PRO1+3
>> HEAD WD1+7, SD1+5, WR
I DGPTFM+8*, DGPTFM+9*, DGPTFM+10*, DGPTFM+11*, GET+1*, GET+2, GET+3, NDG*, NSR*, PF+19!
, CKSCI+4*, CKSCI+7, CKSCI+8
>> I1 DGPTFM+8*, DGPTFM+9*, DGPTFM+10*, DGPTFM+11*, GET+1*, GET+2, GET+3, GET+8, NDG*, NDG+2
, NSR*, NSR+1
ICDVDT PRO1+1~, PRO1+3*
ICPTVDT PRO1+1~, PRO1+3*
IEN CKSCI~, CKSCI+1, CKSCI+2
IMPDATE DGPTFM+5~
IOF WD1+7, SD1+5, WR
IOSL WD1+7, SD1+5, PRO1+4
>> J DIAG+3*, WD+5, WD1+6, SERV+2*, SD+2, SD1+4, PF*, PF+1, PF+2, PF+3
, PF+4, PF+5, PF+7, PF+9, PF+10, PF+11, PF+12, PF+14, PF+15, PF+16
, PF+17, PF+18, A+5
>> J1 WD+6*, WD1+6, SD+3*, SD1+4, PROC+7*, PROC+12
K PF+7*, PF+10, PF+14, PF+15, PF+16, PF+17, PF+18, PF+19!
L WD+6*, WD+7, WD+8, WD1+1, WD1+3, WD1+6, SD+3*, SD1+1, SD1+3, SD1+4
, PROC+7*, PROC+8, PROC+10, PF+3*, PF+4*, PF+19!, CKSCI+4*, PRV, PRV+1
L1 WD+6*, WD1+2, WD1+6, SD+3*, SD1+3, SD1+4, PF+6*, PF+10*, PF+16*, PF+17
, PF+18, PF+19!
>> L2 PROC+9*
>> L3 WD+6*, SD+3*
>> L5 DIAG+3*, WD2+2, SERV+2*, SD2+1
>> L6 DIAG+3*, WD2+2, SERV+2*, SD2+1
M DGPTFM+4!, NDG!, CKSCI+5*
M( GET+2*, GET+3*, WD+5, WD1+6, WD2+2, NDG*, X+3, X1, X1+1
M1 DGPTFM+4!, GET+10!, NDG!
M2 DGPTFM+4!, GET+10!, GET+11*, WD1+1*, WD1+2, WD1+6, NDG!*
M3 DGPTFM+4!
M3( GET+2*, WD2+2
MT GET+6!, NDG+2!
N WD1+1*, WD1+4, WD1+5, SD1+1*, SD1+3, PROC+8*, PROC+9, PROC+11, PF+11*, PF+13
, PF+19!
>> NL DIAG+3*, SERV+2*
P DGPTFM+4!
P1 DGPTFM+4!
P1P DGPTFM+4!, PRO+4!
P2 DGPTFM+4!
P2P DGPTFM+4!, PRO+4!*, PROC+7*, PROC+10, PROC+12
P2P( PROC+12!*
>> PGBRK PF+2, PF+6*, PF+7, PF+10*, PF+17*
>> PM DIAG+3, NDG+2*, X+1, X+3
PR PROC+4*, PROC+5!
>> PROC PRO+5, PROC+3*, PROC+4, PROC+7, NPR*
PS2 DGPTFM+4!, PF*, PF+7*, PF+15
PS2( PF+15*
>> PTF DGPTFM+6, DGPTFM+8, DGPTFM+9, DGPTFM+10, DGPTFM+11, GET+1, GET+3, GET+7, WD+2, WD+5
, NDG, SD+2, NSR, PROC+3, PF+1, NPR, PRO1+2, PRO1+3, A+4, X1+1
>> RC X+1*, X+2*, X+3, X1, X1+1
S DGPTFM+4!, NSR!
S( SD+2, SD2+1, NSR*
S1 DGPTFM+4!, SER+4!, NSR!
S2 DGPTFM+4!, SER+4!, SER+5*, SD1+2*, SD1+3, SD1+4, NSR!, NSR+1*
S2( SD1+4!*
SDCLY DGPTFM+4!, GET+7, PF+1
SDCLY( CKSCI+4
>> ST GET+11*, DIAG+3, DIAG+4*, NDG+2*, SER+5, SERV+2, PRO+4*, NPR*, A+5*
>> ST1 A+5*
>> SU SERV+2, NSR+1*
U DGPTFM+11, GET+3, GET+7, WD+7, WD1+4, WD1+5, WD1+6, WD2+2, WD2+3, WD2+4
, WD2+5, WD2+6, SD1+3, SD1+4, PROC+9, PROC+11, ENC+1, PF, PF+2, PF+3
, PF+4, PF+5, PF+7, PF+10, PF+13, PF+14, PF+15, PF+16, PF+17, PF+18
, CKSCI+7, CKSCI+8, PRO1+4, A+2, A+4, A+5, PRV
X PRO1+4*, A+3*, A+4, A+6, PGBR~
X1 DGPTFM+4!
>> XREF( CKSCI+1, CKSCI+2
Y WD2+2*, SD2+1*, PF*, PF+2, PGBR~
Z WD1+7*, WD2+2*, WD2+4, WD2+5, SD1+5*, WR*, PRO1+5*, PRO1+6*, PRO1+7*, PRO1+8*!
, A*, A+1*, A+2*, A+6*, X+1, X+3*, Z+1
Z3 WD2+1~, WD2+2*, WD2+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All