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

Package: Registration

Routine: DGPTF1


Information

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

Source Information

Source file <DGPTF1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Registration 14 ($$CNTRYI,$$FORIEN)^DGADDUTL  $$ELIG^DGCOMPACTELIG  $$CVEDT^DGCV  $$GETSTAT^DGMSTAPI  $$GETCUR^DGNTAPI  Q^DGPTF  EN^DGPTF4  ^DGPTFJ  
101^DGPTFJC  ^DGPTFM  (D,MT,PM)^DGPTUTL  $$GETSHAD^DGUTL3  $$PTR2CODE^DGUTL4  DEM^VADPT  
VA FileMan 2 ^DIE  $$EXTERNAL^DILFD  
Kernel 1 ^%ZIS  

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 2 DGPTF  DGPTFJ  
Integrated Billing 1 IB20PT82  

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

External References

Name Field # of Occurrence
^%ZIS DGPTF1+4
$$CNTRYI^DGADDUTL ST
$$FORIEN^DGADDUTL ST, ZIP, COU
$$ELIG^DGCOMPACTELIG CV+4
$$CVEDT^DGCV GET+8
$$GETSTAT^DGMSTAPI GET+2
$$GETCUR^DGNTAPI GET+4
Q^DGPTF Q
EN^DGPTF4 CV+6
^DGPTFJ JUMP+4
101^DGPTFJC JUMP+1
^DGPTFM JUMP+3
D^DGPTUTL DOB, CV+2
MT^DGPTUTL JUMP+14
PM^DGPTUTL JUMP+12
$$GETSHAD^DGUTL3 GET+9
$$PTR2CODE^DGUTL4 SA+7, SA+9, SA+18, SA+20
^DIE JUMP+10
$$EXTERNAL^DILFD FAC, SA+25, CAT+2
DEM^VADPT SA+1

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
Routine Call
  • %ZIS
  • Line Location:
    • DGPTF1+4
Routine Call
  • DIE
  • Line Location:
    • JUMP+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] EXTERNAL^DILFD
^DGPT - [#45] Classic Fileman Calls,  EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] DGPTF1+5
^%ZOSF("RM" DGPTF1+5
^DG(45.86 - [#45.86] FAC
^DGP(45.84 - [#45.84] GET
^DGPT - [#45] CV+5, JUMP+13, GET+6
^DIC(11 - [#11] MAR
^DIC(22 - [#22] POS
^DIC(45.1 - [#45.1] SA
^DIC(45.82 - [#45.82] CAT
^DIC(5 - [#5] ST, COU
^DIC(8 - [#8] CAT+2
^DPT - [#2] GET

Label References

Name Line Occurrences
DGPTF1 GET+10
GET WR
PR JUMP+5, JUMP+7, JUMP+8, JUMP+9
Q JUMP+3
WR PR+5
Z FAC+1, MAR, VIET, ST
Z1 FAC+1, VIET

Naked Globals

Name Field # of Occurrence
^( GET, GET+6
^(0 MAR, SA, CAT, ST, POS, COU
^(5 DGPTF1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A WR, CV+6!
A( VIET, ST, POW, ZIP, POS, COU, ION, METH, AO, AO+1
, GET*
A("CV" CV, CV+2, GET+8*
A("MST" MST, GET+2*
A("NTR" NTR, GET+4*
A("SHAD" SHAD, GET+9*
A(0 MAR, SEX, DOB
A(57 CAT+2
B WR, CV+6!
B( GET+6*
B(0 FAC+1, GET+7, GET+8
B(101 SA, SA+25, SEX+1, CAT, CAT+2
B(70 GET+7
>> DA JUMP+10*
>> DFN CV+4, GET, GET+2, GET+4, GET+8, GET+9
>> DGADM JUMP+13*
>> DGCN FAC
>> DGCST FAC
>> DGDD GET+7*
>> DGFC GET+7*
>> DGJUMP JUMP+10*
>> DGN JUMP+1, GET, Z
DGNTARR GET+3!, GET+5!
DGNTARR("INTRP" GET+4
DGPMAN JUMP+12~
DGPMCA JUMP+12~
>> DGPR CV+6
>> DGPTFE JUMP+10
>> DGPTFMT CAT
>> DGPTOUT JUMP+2*
>> DGPTSCRN JUMP+4*
>> DGST GET
>> DGVI DGPTF1+5*, WR, Z
>> DGVO DGPTF1+5*, WR, Z
>> DGZM0 JUMP+1*
>> DGZS0 JUMP+1*
>> DIE JUMP+10*
>> DOB DOB*
>> DR JUMP+10*
DTIME JUMP+2, PR+5
ELIG CV+4~*, CV+5
ETHNIC SA+4~, SA+8*, SA+10*, SA+11*, SA+12
>> HEAD WR
I DGPTF1+5*, SA+4~, SA+5*, SA+6*, SA+7, SA+9, SA+15~, SA+16*, SA+17*, SA+18
, SA+20, JUMP*, JUMP+6*, JUMP+8*, GET*, GET+6*, Z1*
IOF DGPTF1+4, WR
IOP DGPTF1+4*!
IOST DGPTF1+5*, Z
IOST(0 DGPTF1+5
>> J JUMP+6*, JUMP+8*
>> K JUMP+6*
>> L VIET*, POW*, POS*, ION*, METH*, AO*, AO+1*, MST*, NTR*, CV*
, CV+1, CV+2, JUMP+6*
NODE SA+4~, SA+15~
NUM SA+4~, SA+6*, SA+11, SA+15~, SA+17*, SA+22
PT GET+10!
PT(1 JUMP+10*
PT(2 JUMP+10*
>> PTF CV+5, JUMP+10, JUMP+13, GET, GET+6
RACE SA+15~, SA+19*, SA+21*, SA+22*, SA+23
>> SEX SEX*
U DGPTF1+5, FAC+1, MAR, SA, SA+25, SEX, SEX+1, DOB, CAT, CAT+2
, VIET, ST, POW, ZIP, POS, COU, ION, METH, AO, AO+1
, MST, CV, CV+2, GET+2, GET+7, GET+8
VADM SA+1~, SA+24!
VADM(11 SA+3, SA+6, SA+7, SA+9
VADM(12 SA+14, SA+17, SA+18, SA+20
>> X DGPTF1+5*, FAC*, SA+7*, SA+8, SA+9*, SA+10, SA+18*, SA+19, SA+20*, SA+21
, JUMP+2*, JUMP+3, JUMP+4, JUMP+5, JUMP+6*, JUMP+7, JUMP+8, JUMP+9, JUMP+10, PR+5*
>> Y DOB*, CV+2*
>> Z FAC+1*, MAR*, VIET*, ST*, Z*, Z1*, Z1+1
>> Z1 FAC+1*, VIET*, 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