Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call