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

Package: Registration

Routine: DGPTFM4


Information

DGPTFM4 ;ALB/MTC/ADL/PLT - PTF ENTRY/EDIT-2 ;12/18/07 11:37am

Source Information

Source file <DGPTFM4.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Registration 12 $$GETCUR^DGNTAPI  $$FILEHNC^DGNTAPI1  (ORDER,Q)^DGPTF  ^DGPTFJ  501^DGPTFJC  (,Z)^DGPTFM  M^DGPTFM1  PRN2^DGPTFM8  
PTFICD^DGPTFUT  ($$CODESYS,$$GETLABEL,EFFDATE,WRITECOD)^DGPTIC10  CHK501^DGPTSCAN  (D,MT,PM)^DGPTUTL  
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
DRG Grouper 2 $$DRGD^ICDGTDRG  $$ICDDATA^ICDXCODE  
PCE Patient Care Encounter 1 $$DISPLAY^PXCOMPACT  

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

Package Total Caller Graph
Registration 3 DGPTFJC  DGPTFM1  DGPTFM6  

Entry Points

Name Comments DBIA/ICR reference
EN ;
WR
M
JUMP
X
X1
PR
NEXM
ADD ;add movement record of fee basis patent
MOB
Q
Z
Z1
R ;DELETE PROCEDURE RECORD
ASKPRO
NOPROC
PGBR

External References

Name Field # of Occurrence
$$GETCUR^DGNTAPI M+31
$$FILEHNC^DGNTAPI1 X1+13
ORDER^DGPTF MOB+1
Q^DGPTF Q
^DGPTFJ X+2
501^DGPTFJC X
^DGPTFM NEXM, ADD+2, ASKPRO, ASKPRO+4, NOPROC
Z^DGPTFM WR+1, M+47
M^DGPTFM1 X+2
PRN2^DGPTFM8 M+50
PTFICD^DGPTFUT M+40
$$CODESYS^DGPTIC10 X1+1
$$GETLABEL^DGPTIC10 M+38
EFFDATE^DGPTIC10 M+37
WRITECOD^DGPTIC10 M+44
CHK501^DGPTSCAN X1+8
D^DGPTUTL M
MT^DGPTUTL X1+19
PM^DGPTUTL X1+17
^DIC ADD+2
^DIE X1+3, X1+6
^DIK ASKPRO+3
^DIR PGBR
$$DRGD^ICDGTDRG M+54
$$ICDDATA^ICDXCODE M+43
$$DISPLAY^PXCOMPACT M+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?70
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !,?62,"Discharge Movement"
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: M+0
Function Call: WRITE
  • Prompt: "Date of Move: "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: "Date of Move: "
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !," Leave days: ",$P(M1,U,3),?44,"Pass days: ",$P(M1,U,4)
  • Line Location: M+1
Function Call: WRITE
  • Prompt: !,"Treated for SC Condition: ",$S($P(M3,U,18)=1:"Yes",1:"No")
  • Line Location: M+2
Function Call: WRITE
  • Prompt: !,"Treated for Acute Suicidal Crisis: ",$S($P(^DGPT(PTF,"M",+M(DGZM0),0),"^",33)="Y":"Yes",1:"No")
  • Line Location: M+3
Function Call: WRITE
  • Prompt: ?42,"COMPACT Start Date: ",$P(DISPLAY,U,2)
  • Line Location: M+20
Function Call: WRITE
  • Prompt: ?40,"Extension Start Date: ",$P(DISPLAY,U,2)
  • Line Location: M+21
Function Call: WRITE
  • Prompt: !," COMPACT End Date: ",$S($P(DISPLAY,U,6)]"":$P(DISPLAY,U,6),1:$P(DISPLAY,U,4))
  • Line Location: M+22
Function Call: WRITE
  • Prompt: !," Remaining Days: ",$P(DISPLAY,U,4)
  • Line Location: M+23
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Potentially Related to Combat: ",$S($P(M3,U,31)="Y":"Yes",1:"No")
  • Line Location: M+25
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for AO Condition: ",$S($P(M3,U,26)="Y":"Yes",1:"No")
  • Line Location: M+26
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for IR Condition: ",$S($P(M3,U,27)="Y":"Yes",1:"No")
  • Line Location: M+27
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for service in SW Asia: ",$S($P(M3,U,28)="Y":"Yes",1:"No")
  • Line Location: M+28
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for MST Condition: ",$S($P(M3,U,29)="Y":"Yes",1:"No")
  • Line Location: M+29
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for HEAD/NECK CA Condition: ",$S($P(M3,U,30)="Y":"Yes",1:"No")
  • Line Location: M+33
Function Call: WRITE
  • Prompt: @($S(NL#2:"!",1:"?37")),"Treated for Project 112/SHAD: ",$S($P(M3,U,32)="Y":"Yes",1:"No")
  • Line Location: M+34
Function Call: WRITE
  • Prompt: !!
  • Line Location: M+38
Function Call: WRITE
  • Prompt: " DX: ",$$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: M+38
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: M+45
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: M+45
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: M+47
Function Call: WRITE
  • Prompt: !
  • Line Location: M+47
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: DRG=998!(DRG=999)!((DRG=468!(DRG=469)!(DRG=470))&(+$P($G(M1),U,10)<3071001))
  • Line Location: M+52
Function Call: WRITE
  • Prompt: !!?14,"TRANSFER DRG: ",DRG
  • Line Location: M+52
Function Call: WRITE
  • Prompt: !,DGDX(DGDS)
  • Line Location: M+55
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+0
Function Call: WRITE
  • Prompt: "Enter <RET> to continue, 1-2 to edit,",!,"'M' ",$S(DGPTFE:" to add a patient movement",1:"to edit Treat. Specialty"),", '^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-",$S(DGPTFE:"Date of movement, Losing Specialty, ",1:""),"Leave and Pass days",!?10,"2-ICD DIAGNOSIS CODES"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,"You may also enter 1-2",!
  • 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
Function Call: READ
  • Variable: DGPROC
  • Timeout: DTIME
  • Line Location: ASKPRO+0
Function Call: WRITE
  • Prompt: !!,"Delete procedure record <",$P(DGPNUM,",",2,99),"> : "
  • Line Location: ASKPRO+0
Function Call: WRITE
  • Prompt: !!,"Enter the record # to delete from the PTF file <",$P(DGPNUM,",",2,99),">",!
  • Line Location: ASKPRO+1
Function Call: WRITE
  • Prompt: !!,*7,"No procedures to delete",!
  • Line Location: NOPROC+0
Routine Call
  • DIC
  • Line Location:
    • ADD+2
Routine Call
  • DIE
  • Line Location:
    • X1+3
    • X1+6
Routine Call
  • DIR
  • Line Location:
    • PGBR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] EN+4, EN+5, EN+6, WR, M+3, X1+18, ADD+1, MOB, R+1, R+2
^DIC(42.4 - [#42.4] M

Label References

Name Line Occurrences
ASKPRO ASKPRO+1
EN X1+20, NEXM
MOB EN+2
NEXM EN+3, X+2
NOPROC R+1, R+2
PGBR M+47
PR X1
Q X+2
WR PR+3
X1 ADD+3
Z M, M+38
Z1 M

Naked Globals

Name Field # of Occurrence
^( MOB
^("P" EN+6
^(0 M, ADD+1
^(300 WR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA X1+3*, X1+4!, X1+5*, ASKPRO+2!, ASKPRO+3*!, ASKPRO+4!
DA(1 X1+5*, ADD+2*, ASKPRO+3*
>> DFN M+6, M+31, X1+13
DG300 WR*, M+50, JUMP!
>> DGADM X1+18*
>> DGCODSYS X1+1*, X1+2
>> DGDS M+54*, M+55*
DGDX M+53~
DGDX( M+55
DGJ ASKPRO+2~, ASKPRO+3*
>> DGJUMP X1+3*, X1+5*
DGMOV X1+3*, X1+5*, X1+8!
DGMPOA EN+1~, M+42*, M+45
>> DGN Z
DGNTARR M+30!, M+31*, X1+13*, X1+15!
DGNTARR("STAT" M+32, X1+12
DGNUM X*, X+1, X+2!
DGPMAN X1+17~
DGPMCA X1+17~
DGPNUM R+3*, R+4*, ASKPRO!, ASKPRO+1, ASKPRO+4!
DGPROC R+3*, ASKPRO*!, ASKPRO+1, ASKPRO+3, ASKPRO+4!
DGPTF X1+3*, X1+5*, X1+8!
>> DGPTFE X+1, X1+2, PR+1
>> DGPTTMP M+43*, M+45, M+46
>> DGST X
>> DGVI Z
>> DGVO Z
DGX501 M+40, M+49!
DGX501( M+41
>> DGZM0 DGPTFM4+8*, EN+3, EN+4, EN+5, EN+6, WR, WR+1, M+3, M+40, M+47
, X, X1+3, X1+4, X1+5, NEXM*, ADD+1*, ADD+3
DIC X1+4!, ADD+2*!
DIC(0 ADD+2*
DIE X1+3*, X1+4!, X1+5*, X1+8!, ADD+2!
DIK ASKPRO+3*, ASKPRO+4!
DIR PGBR~
DIR("A" PGBR*
DIR(0 PGBR*
DISPLAY M+5~, M+6*, M+20, M+21, M+22, M+23
DR X1+2*, X1+4!*, X1+8!
>> DRG M+52*, M+54
DTIME X+1, PR+3, ASKPRO
DXD M+53~, M+54*
EFFDATE M+36~, M+38, M+43, M+44
>> HEAD WR+1, M+47
>> I M+41*, JUMP*, ADD+1*, ADD+2, ADD+3, MOB*, Z1*
>> I1 MOB*, MOB+1
IMPDATE M+36~
IOF WR+1, M+47
IOSL M+47
IOST Z
>> L M*, M+41*, M+42, M+43, M+44, ADD+1*
>> L1 ADD+1*, ADD+2, ADD+3
M EN+2, X1+8!, MOB!
M( EN+3*, EN+4*, EN+5, EN+6*, WR, WR+1, M+3, M+40, X, X1+3
, X1+4, X1+5, NEXM, ADD+3*, MOB*
M1 EN+4*, EN+6*, M, M+1, M+52, M+54, MOB!
M2 MOB!*
M3 EN+1~, EN+4*, M+2, M+25, M+26, M+27, M+28, M+29, M+32*, M+33
, M+34, X1+12
M82 EN+1~, EN+5*
NL M+24~*, M+25*, M+26*, M+27*, M+28*, M+29*, M+33*, M+34, M+35!
>> P( R+3, ASKPRO+3
>> PM MOB+1*
>> PTF EN+4, EN+5, EN+6, WR, M+3, M+37, M+40, X1+1, X1+3, X1+5
, X1+18, ADD+1, ADD+2, MOB, R+1, R+2, ASKPRO+3
U EN+6, M, M+1, M+2, M+20, M+21, M+22, M+23, M+25, M+26
, M+27, M+28, M+29, M+32, M+33, M+34, M+42, M+45, M+46, M+52
, M+54, X1+12, ADD+1, ASKPRO
X X+1*, X+2, X1, X1+3, X1+5, PR+3*, ADD+2*, ADD+3*, PGBR~
Y M*, ADD+2, PGBR~
>> Z WR+1*, M*, M+38*, M+47*, Z*, Z1*, Z1+1
>> Z1 M*, Z1
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