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

Package: Registration

Routine: DGPTF1


Information

DGPTF1 ;ALB/JDS/PLT - PTF ENTRY/EDIT ;04/01/24 3:29pm

Source Information

Source file <DGPTF1.m>

Entry Points

Name Comments DBIA/ICR reference
WR
FAC
MAR
SA
SEX
DOB
CAT
VIET
ST
POW
ZIP
POS
COU
ION
METH
AO
SHAD
MST
NTR
CV
JUMP
GET
PR
Q
Z
Z1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,HEAD,?72,@DGVI,"<101>",@DGVO
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FAC+0
Function Call: WRITE
  • Prompt: ?37,"Census "
  • Line Location: FAC+0
Function Call: WRITE
  • Prompt: "Date: ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3)," "
  • Condition for execution: $G(DGCN)
  • Line Location: FAC+0
Function Call: WRITE
  • Prompt: "Status: ",$$EXTERNAL^DILFD(45,6,,+DGCST)
  • Line Location: FAC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FAC+1
Function Call: WRITE
  • Prompt: " Facility: "
  • Line Location: FAC+1
Function Call: WRITE
  • Prompt: " Marit Stat: ",$S($D(^DIC(11,+$P(A(0),U,5),0)):$P(^(0),U,1),1:"")
  • Line Location: MAR+0
Function Call: WRITE
  • Prompt: !," Source of Adm: ",$S($D(^DIC(45.1,+B(101),0)):$P(^(0),U,5),1:"")
  • Line Location: SA+0
Function Call: WRITE
  • Prompt: ?39,"Ethnic: "
  • Line Location: SA+2
Function Call: WRITE
  • Prompt: ""
  • Line Location: SA+3
Function Call: WRITE
  • Prompt: ?55,"Race: "
  • Line Location: SA+13
Function Call: WRITE
  • Prompt: ""
  • Line Location: SA+14
Function Call: WRITE
  • Prompt: !," Source of Pay: ",$$EXTERNAL^DILFD(45,22,,$P(B(101),U,3))
  • Line Location: SA+25
Function Call: WRITE
  • Prompt: ?39," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:"")
  • Line Location: SEX+0
Function Call: WRITE
  • Prompt: !,"Trans Facility: ",$P(B(101),U,5)_$P(B(101),U,6)
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: ?39," Date of Birth: ",Y
  • Line Location: DOB+0
Function Call: WRITE
  • Prompt: !," Cat of Ben: ",$S($D(^DIC(45.82,+$P(B(101),U,4),0)):$E($P(^(0),U,2),1,26),1:"")
  • Line Location: CAT+0
Function Call: WRITE
  • Prompt: " Admit Elig: "_$S($P($G(^DIC(8,+$P(B(101),U,8),0)),U)="COMPACT ACT ELIGIBLE":"COMPACT ACT",+$P(B(101),U,8):$P($G(^DIC(8,+$P(B(101),U,8),0)),U),1:"UNKNOWN")
  • Line Location: CAT+2
Function Call: WRITE
  • Prompt: ?50,"SCI: ",$$EXTERNAL^DILFD(2,57.4,,$P(A(57),U,4))
  • Line Location: CAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VIET+0
Function Call: WRITE
  • Prompt: "Vietnam SRV: "
  • Line Location: VIET+0
Function Call: WRITE
  • Prompt: $S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" State: "_$S($D(^DIC(5,+$P(A(.11),U,5),0)):$P(^(0),U,1),1:""),1:"Country: "_$$CNTRYI^DGADDUTL($P(A(.11),U,10)))
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !?11,"POW: "
  • Line Location: POW+0
Function Call: WRITE
  • Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN")
  • Line Location: POW+0
Function Call: WRITE
  • Prompt: ?42,$S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" Zip Code: "_$P(A(.11),U,6),1:"Postal Code: "_$P(A(.11),U,9))
  • Line Location: ZIP+0
Function Call: WRITE
  • Prompt: !,?6," POW SRV: "
  • Line Location: POS+0
Function Call: WRITE
  • Prompt: $E($S($D(^DIC(22,+L,0)):$P(^(0),U,1),1:""),1,23)
  • Line Location: POS+0
Function Call: WRITE
  • Prompt: ?45,$S('$$FORIEN^DGADDUTL($P(A(.11),U,10))!('$P(A(.11),U,10)):" County: "_$S($D(^DIC(5,+$P(A(.11),U,5),1,+$P(A(.11),U,7),0)):$P(^(0),U,1),1:""),1:"Province: "_$P(A(.11),U,8))
  • Line Location: COU+0
Function Call: WRITE
  • Prompt: !," Ion Rad Exp: "
  • Line Location: ION+0
Function Call: WRITE
  • Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN")
  • Line Location: ION+0
Function Call: WRITE
  • Prompt: !," AO Exp/Loc: "
  • Line Location: AO+0
Function Call: WRITE
  • Prompt: $S(L="Y":"YES",L="N":"NO",1:"UNKNOWN")
  • Line Location: AO+0
Function Call: WRITE
  • Prompt: ?40,"PROJ 112/SHAD: ",$S(A("SHAD")=1:"YES",1:"NO")
  • Line Location: SHAD+0
Function Call: WRITE
  • Prompt: !," Claims MST: "
  • Line Location: MST+0
Function Call: WRITE
  • Prompt: $S(L="Y":"YES",L="N":"NO",L="D":"DECLINED TO ANSWER",1:"UNKNOWN")
  • Line Location: MST+0
Function Call: WRITE
  • Prompt: !,"Combat Veteran: ",$S(L:"YES",1:"NO")
  • Line Location: CV+1
Function Call: WRITE
  • Prompt: ?45,"End Date: ",Y
  • Line Location: CV+2
Function Call: WRITE
  • Prompt: !,"Acute Suicidal Crisis: ",$S($P($G(^DGPT(PTF,70)),"^",33)=1:"YES",$P($G(^DGPT(PTF,70)),"^",33)=0:"NO",1:"")," COMPACT Act: ",ELIG
  • Line Location: CV+5
Function Call: WRITE
  • Prompt: !
  • Line Location: JUMP+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: JUMP+2
Function Call: WRITE
  • Prompt: !,"Enter '^' to stop the display and edit of data",!,"'^N' to jump to screen #N (screen # appears in upper right of screen '<N>')",!,"<RET> to continue on to the next screen or 1-7 to edit:"
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !?10,"1-Facility, Source of admis, Payment, Transf facil, and Cat. of Benef",!?10,"2-Marital Stat, Race, Ethnicity, Sex, SCI, DOB"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !?10,"3-Agent Orange, Prisoner of War, Ionizing Radiation, MST, N/T Radium",!?10,"4-State, County, Zip code"
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !?10,"5-Discharge date, type & specialty",!?10,"6-Outpatient treat & VA Auspices",!?10,"7-Receiving Facility, ASIH Days & C&P Status"
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !,"You may also enter any combination of the above, separated by commas(ex:1,3,5)",!
  • Line Location: PR+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter <RET> : "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PR+5
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

FileMan Files Accessed Via FileMan Db Call

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