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 - PTF OP-PRO-DIAG ;7/22/05 9:18am

Source Information

Source file <DGPTFM.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Registration 15 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  D^DGPTUTL  CPT^DGPTUTL1  
DRG Grouper 2 ($$ICDDX,$$ICDOP)^ICDCODE  $$GETDATE^ICDGTDRG  
Scheduling 1 CL^SDCO21  
VA Fileman 1 ^DIE  

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
WD
SD1
SD2
CKSCI(IEN)
PRO1 ;SET MENU TYPE AND DISPLAY MENU
EN
DONE
WR
SERV
SER
GET
PRO
PRV
PF
NSR
X1
A
ENC
NDG
X ;
Z
DIAG
WD1
WD2
SD
PROC
NPS
NPR

External References

Name Field # of Occurrence
ICDINFO^DGAPI PF+1
IN^DGHELP A+3
ORDER^DGPTF GET+1, NDG+1
Q^DGPTF A+3
EN1^DGPTF4 DONE
^DGPTFJ A+3
MAS^DGPTFJC PRO1+3
^DGPTFM X+1, X1, X1+1
EN^DGPTFM0 EN
PRC^DGPTFM0 SERV+1
HELP^DGPTFM1A A+6
MOB^DGPTFM2 GET+1
XREF^DGPTFM21 PF+1
GETVAR^DGPTFM6 GET+1
SD3^DGPTFM8 SERV
WD3^DGPTFM8 DIAG
D^DGPTUTL WD2+1, SD2, PF+2
CPT^DGPTUTL1 PF+7
^DIE X1+1
$$ICDDX^ICDCODE WD1, PF+10
$$ICDOP^ICDCODE SD1, PROC+1
$$GETDATE^ICDGTDRG WD1, SD1, PROC+1, PF+10, PRO1+2
CL^SDCO21 GET+1, PF+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L3
  • Line Location: WD1+1
Function Call: WRITE
  • Prompt: ?L1*40,$J(M2,3)," ",$J(L4,7)," ",$E($P(L2,U,3),1,25)
  • Line Location: WD1+1
Function Call: WRITE
  • Prompt: ?L5*40,"Move #",+L6
  • Line Location: WD2+1
Function Call: WRITE
  • Prompt: " D/C"
  • Condition for execution: +Z=1
  • Line Location: WD2+1
Function Call: WRITE
  • Prompt: " ",Y," "
  • Line Location: WD2+1
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+2
Function Call: WRITE
  • Prompt: $E($P(^DIC(42.4,+$P(Z,U,2),0),U,2),1,10)
  • Line Location: WD2+4
Function Call: WRITE
  • Prompt: $E($P(^(0),U,1),1,10)
  • Line Location: WD2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SERV+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: L3
  • Line Location: SD1+1
Function Call: WRITE
  • Prompt: ?L1*40,$J(S2,3)," ",$J(L4,7)," ",$E($P(L2,U,4),1,25)
  • Line Location: SD1+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: NL
  • Line Location: SD2+0
Function Call: WRITE
  • Prompt: ?L5*40,L6,"-Surgery date: ",Y
  • Line Location: SD2+0
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: $J(P2,3)," ",$J(L4,7)," ",$E($P(L2,"^",4),1,25)
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>45
  • Line Location: PROC+2
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+8
Function Call: WRITE
  • Prompt: DS," Related Diagnosis ",DS
  • Line Location: PF+8
Function Call: WRITE
  • Prompt: !,?8,CD," ",$P(N,U,3)
  • Line Location: PF+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRO1+4
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRO1+4
Function Call: WRITE
  • Prompt: Z
  • 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: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRO1+8
Function Call: WRITE
  • Prompt: !," ^=Abort <RET> to Continue:<",DGNUM,">// "
  • Line Location: PRO1+8
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
  • Timeout: DTIME
  • Variable: RC
  • 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+0
Routine Call
  • DIE
  • Line Location:
    • X1+1

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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