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

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DGPTFJC  DGPTFM1  DGPTFM6  

Entry Points

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

External References

Name Field # of Occurrence
$$GETCUR^DGNTAPI M+10
$$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+26
M^DGPTFM1 X+2
PRN2^DGPTFM8 M+29
PTFICD^DGPTFUT M+19
$$CODESYS^DGPTIC10 X1+1
$$GETLABEL^DGPTIC10 M+17
EFFDATE^DGPTIC10 M+16
WRITECOD^DGPTIC10 M+23
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+33
$$ICDDATA^ICDXCODE M+22

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: @($S(NL#2:"!",1:"?37")),"Potentially Related to Combat: ",$S($P(M3,U,31)="Y":"Yes",1:"No")
  • Line Location: M+4
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+5
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+6
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+7
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+8
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+12
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+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: M+17
Function Call: WRITE
  • Prompt: " DX: ",$$GETLABEL^DGPTIC10(EFFDATE,"D")
  • Line Location: M+17
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: $X>73
  • Line Location: M+24
Function Call: WRITE
  • Prompt: " (POA=",$S(DGMPOA]"":DGMPOA,1:"''"),")"
  • Line Location: M+24
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72
  • Line Location: M+26
Function Call: WRITE
  • Prompt: !
  • Line Location: M+26
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+31
Function Call: WRITE
  • Prompt: !!?14,"TRANSFER DRG: ",DRG
  • Line Location: M+31
Function Call: WRITE
  • Prompt: !,DGDX(DGDS)
  • Line Location: M+34
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
  • Prompt: "Enter <RET>: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: DGPROC
  • 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
  • DIE
  • Line Location:
    • X1+3
    • X1+6
Routine Call
  • DIC
  • Line Location:
    • ADD+2
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, 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+26
PR X1
Q X+2
WR PR+3
X1 ADD+3
Z M, M+17
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+10, X1+13
DG300 WR*, M+29, JUMP!
>> DGADM X1+18*
>> DGCODSYS X1+1*, X1+2
>> DGDS M+33*, M+34*
DGDX M+32~
DGDX( M+34
DGJ ASKPRO+2~, ASKPRO+3*
>> DGJUMP X1+3*, X1+5*
DGMOV X1+3*, X1+5*, X1+8!
DGMPOA EN+1~, M+21*, M+24
>> DGN Z
DGNTARR M+9!, M+10*, X1+13*, X1+15!
DGNTARR("STAT" M+11, 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+22*, M+24, M+25
>> DGST X
>> DGVI Z
>> DGVO Z
DGX501 M+19, M+28!
DGX501( M+20
>> DGZM0 DGPTFM4+6*, EN+3, EN+4, EN+5, EN+6, WR, WR+1, M+19, M+26, 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*
DR X1+2*, X1+4!*, X1+8!
>> DRG M+31*, M+33
DTIME X+1, PR+3, ASKPRO
DXD M+32~, M+33*
EFFDATE M+15~, M+17, M+22, M+23
>> HEAD WR+1, M+26
>> I M+20*, JUMP*, ADD+1*, ADD+2, ADD+3, MOB*, Z1*
>> I1 MOB*, MOB+1
IMPDATE M+15~
IOF WR+1, M+26
IOSL M+26
IOST Z
>> L M*, M+20*, M+21, M+22, M+23, 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+19, X, X1+3, X1+4
, X1+5, NEXM, ADD+3*, MOB*
M1 EN+4*, EN+6*, M, M+1, M+31, M+33, MOB!
M2 MOB!*
M3 EN+1~, EN+4*, M+2, M+4, M+5, M+6, M+7, M+8, M+11*, M+12
, M+13, X1+12
M82 EN+1~, EN+5*
NL M+3~*, M+4*, M+5*, M+6*, M+7*, M+8*, M+12*, M+13, M+14!
>> P( R+3, ASKPRO+3
>> PM MOB+1*
>> PTF EN+4, EN+5, EN+6, WR, M+16, M+19, 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+4, M+5, M+6, M+7, M+8, M+11
, M+12, M+13, M+21, M+24, M+25, M+31, M+33, 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+17*, M+26*, 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