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 - PTF ENTRY/EDIT-2 ; 12/18/07 11:37am

Source Information

Source file <DGPTFM4.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Registration 10 $$GETCUR^DGNTAPI  $$FILEHNC^DGNTAPI1  (ORDER,Q)^DGPTF  ^DGPTFJ  501^DGPTFJC  (,Z)^DGPTFM  M^DGPTFM1  PRN2^DGPTFM8  
CHK501^DGPTSCAN  (D,MT,PM)^DGPTUTL  
VA Fileman 3 ^DIC  ^DIE  ^DIK  
DRG Grouper 2 $$ICDDX^ICDCODE  ($$DRGD,$$GETDATE)^ICDGTDRG  

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
Z
M
JUMP
ADD
R ;DELETE PROCEDURE RECORD
NOPROC
WR
NEXM
MOB
X
ASKPRO
X1
Z1

External References

Name Field # of Occurrence
$$GETCUR^DGNTAPI M+11
$$FILEHNC^DGNTAPI1 X1+5
ORDER^DGPTF MOB+1
Q^DGPTF Q
^DGPTFJ X+2
501^DGPTFJC X
^DGPTFM NEXM, ADD+1, ASKPRO, ASKPRO+4, NOPROC
Z^DGPTFM WR+1
M^DGPTFM1 X+2
PRN2^DGPTFM8 M+18
CHK501^DGPTSCAN X1
D^DGPTUTL M
MT^DGPTUTL X1+10
PM^DGPTUTL X1+8
^DIC ADD+1
^DIE X1
^DIK ASKPRO+3
$$ICDDX^ICDCODE M+16
$$DRGD^ICDGTDRG M+21
$$GETDATE^ICDGTDRG M+16

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+9
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+13
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+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: M+16
Function Call: WRITE
  • Prompt: " DX: "
  • Line Location: M+16
Function Call: WRITE
  • Prompt: $S(+DGPTTMP>0:$P(DGPTTMP,U,4)_" ("_$P(DGPTTMP,U,2)_")",1:"**********-"_L),!?17
  • Line Location: M+17
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+19
Function Call: WRITE
  • Prompt: !!?14,"TRANSFER DRG: ",DRG
  • Line Location: M+19
Function Call: WRITE
  • Prompt: !,DGDX(DGDS)
  • Line Location: M+22
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
Routine Call
  • DIC
  • Line Location:
    • ADD+1

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, EN+1, WR, X1+9, ADD, MOB, R+1, R+2
^DIC(42.4 - [#42.4] M

Label References

Name Line Occurrences
ASKPRO ASKPRO+1
EN X1+11, NEXM
MOB EN
NEXM EN, X+2
NOPROC R+1, R+2
Q X+2
WR PR+3
X1 ADD+2
Z M, M+16
Z1 M

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA X1*, ASKPRO+2!, ASKPRO+3*!, ASKPRO+4!
DA(1 ADD+1*, ASKPRO+3*
>> DFN M+11, X1+5
DG300 WR*, M+18, JUMP!
>> DGADM X1+9*
>> DGDS M+21*, M+22*
DGDX M+20~
DGDX( M+22
DGJ ASKPRO+2~, ASKPRO+3*
>> DGJUMP X1*
DGMOV X1*!
>> DGN Z
DGNTARR M+10!, M+11*, X1+5*, X1+6!
DGNTARR("STAT" M+12, X1+4
DGNUM X*, X+1, X+2!
DGPMAN X1+8~
DGPMCA X1+8~
DGPNUM R+3*, R+4*, ASKPRO!, ASKPRO+1, ASKPRO+4!
DGPROC R+3*, ASKPRO*!, ASKPRO+1, ASKPRO+3, ASKPRO+4!
DGPTF X1*!
>> DGPTFE X+1, X1, PR+1
>> DGPTTMP M+16*, M+17
>> DGST X
>> DGVI Z
>> DGVO Z
>> DGZM0 DGPTFM4+4*, EN, EN+1, WR, WR+1, X, X1, NEXM*, ADD*, ADD+2
DIC ADD+1*!
DIC(0 ADD+1*
DIE X1*!, ADD+1!
DIK ASKPRO+3*, ASKPRO+4!
DR X1*!
>> DRG M+19*, M+21
DTIME X+1, PR+3, ASKPRO
DXD M+20~, M+21*
>> HEAD WR+1
>> I M+16*, JUMP*, ADD*, ADD+1, ADD+2, MOB*, Z1*
>> I1 MOB*, MOB+1
IOF WR+1
IOST Z
>> L M*, M+16*, M+17, ADD*
>> L1 ADD*, ADD+1, ADD+2
M EN, X1!, MOB!
M( EN*, EN+1*, WR, WR+1, X, X1, NEXM, ADD+2*, MOB*
M1 EN*, EN+1*, M, M+1, M+16, M+19, M+21, MOB!
M2 MOB!*
M3 EN~*, M+2, M+4, M+5, M+6, M+7, M+9, M+12*, M+13, M+14
, X1+4
NL M+3~*, M+4*, M+5*, M+6*, M+7*, M+9*, M+13*, M+14, M+15!
>> P( R+3, ASKPRO+3
>> PM MOB+1*
>> PTF EN, EN+1, WR, M+16, X1, X1+9, ADD, ADD+1, MOB, R+1
, R+2, ASKPRO+3
U EN+1, M, M+1, M+2, M+4, M+5, M+6, M+7, M+9, M+12
, M+13, M+14, M+16, M+17, M+19, M+21, X1+4, ADD, ASKPRO
>> X X+1*, X+2, X1, PR+3*, ADD+1*, ADD+2*
>> Y M*, ADD+1
>> Z WR+1*, M*, M+16*, 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