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

Package: Registration

Routine: DGRPD


Information

DGRPD ;ALB/MRL,MLR,JAN,LBD,EG,BRM,JRC,BAJ,JAM,HM,BDB,ARF,RN,JAM - PATIENT INQUIRY (NEW) ; 04/01/2024@12:01

Source Information

Source file <DGRPD.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
EN ;call to display patient inquiry - input DFN
  • ICR #2041
    • Status: Active
    • Usage: Controlled Subscription
  • ICR #6752
    • Status: Withdrawn
    • Usage: Controlled Subscription
  • ICR #10037
    • Status: Active
    • Usage: Supported
    Q
    INP
    SA
    SAA ;Scheduled Admit Data
    CL
    FA ;
    RMK
    HBP ;W !!,"Veteran Medical Benefit Plan Currently Assigned to Veteran:" ;DG*5.3*987 HM
    COV
    OREN
    LANGUAGE ; Get language data *///*
    L1
    SOGI ;**1059 SOGI FIELDS TO BE DISPLAYED VAMPI-11114,VAMPI-11118,VAMPI-11120, VAMPI-11121

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: SEL+0
    Function Call: WRITE
    • Prompt: " Residential Address: "
    • Line Location: EN+8
    Function Call: WRITE
    • Prompt: ?40,"Mailing Address: "
    • Line Location: EN+9
    Function Call: WRITE
    • Prompt: !?5
    • Line Location: EN+11
    Function Call: WRITE
    • Prompt: $S($D(DGA(2)):DGA(2),1:"NO PERMANENT MAILING ADDRESS")
    • Line Location: EN+13
    Function Call: WRITE
    • Prompt: DGA(I)
    • Line Location: EN+15
    Function Call: WRITE
    • Prompt: !?5,"County: "_DGCC
    • Line Location: EN+18
    Function Call: WRITE
    • Prompt: ?44,"County: "_DGCC
    • Line Location: EN+20
    Function Call: WRITE
    • Prompt: !?6,"Phone: ",$S($P(DGRP(.13),U,1)]"":$P(DGRP(.13),U,1),1:DGRPU)
    • Line Location: EN+21
    Function Call: WRITE
    • Prompt: ?42,"Bad Addr: ",$$EXTERNAL^DILFD(2,.121,"",$P(DGRP(.11),U,16))
    • Line Location: EN+22
    Function Call: WRITE
    • Prompt: !?5,"Office: ",$S($P(DGRP(.13),U,2)]"":$P(DGRP(.13),U,2),1:DGRPU)
    • Line Location: EN+23
    Function Call: WRITE
    • Prompt: ?46,"Cell: ",$S($P(DGRP(.13),U,4)]"":$P(DGRP(.13),U,4),1:DGRPU)
    • Line Location: EN+24
    Function Call: WRITE
    • Prompt: !?44,"E-mail: ",$S($P(DGRP(.13),U,3)]"":$P(DGRP(.13),U,3),1:DGRPU)
    • Line Location: EN+25
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+26
    Function Call: WRITE
    • Prompt: " Temporary Mailing Address: "
    • Line Location: EN+38
    Function Call: WRITE
    • Prompt: ?40,"Confidential Mailing Address: "
    • Line Location: EN+39
    Function Call: WRITE
    • Prompt: !?5
    • Line Location: EN+40
    Function Call: WRITE
    • Prompt: $S($D(DGA(1)):DGA(1),1:"NO TEMPORARY MAILING ADDRESS")
    • Line Location: EN+41
    Function Call: WRITE
    • Prompt: ?44,$S($D(DGA(2)):DGA(2),1:"NONE ON FILE")
    • Line Location: EN+41
    Function Call: WRITE
    • Prompt: DGA(I)
    • Line Location: EN+43
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+44
    Function Call: WRITE
    • Prompt: ?45,"Phone: ",$S($P(DGRP(.141),U,9)'="Y":"NOT APPLICABLE",CONACT'="Y":"NOT APPLICABLE",$P(DGRP(.13),U,15)]"":$P(DGRP(.13),U,15),1:DGRPU)
    • Line Location: EN+54
    Function Call: WRITE
    • Prompt: !?2,"From/To: ",X
    • Line Location: EN+61
    Function Call: WRITE
    • Prompt: ?43,"From/To: "_DGX
    • Line Location: EN+67
    Function Call: WRITE
    • Prompt: !?41,"Confidential Address Categories: "
    • Line Location: EN+68
    Function Call: WRITE
    • Prompt: !!?4,"POS: ",$S($D(^DIC(21,+$P(DGRP(.32),"^",3),0)):$P(^(0),"^",1),1:DGRPU),?42,"Claim #: ",$S($P(DGRP(.31),"^",3)]"":$P(DGRP(.31),"^",3),1:"UNSPECIFIED")
    • Line Location: EN+84
    Function Call: WRITE
    • Prompt: !?2,"Relig: ",$S($D(^DIC(13,+$P(DGRP(0),"^",8),0)):$P(^(0),"^",1),1:DGRPU),?46
    • Line Location: EN+85
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+87
    Function Call: WRITE
    • Prompt: !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0))
    • Line Location: EN+105
    Function Call: WRITE
    • Prompt: !!,?2,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",$P(DGCV,U,3)="":"NOT ELIGIBLE",1:"EXPIRED")
    • Line Location: EN+113
    Function Call: WRITE
    • Prompt: ?45,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ")
    • Line Location: EN+113
    Function Call: WRITE
    • Prompt: !,?1,"COMPACT Act Status: "_$$ELIG^DGCOMPACTELIG(DFN,"DGRPD")
    • Line Location: EN+115
    Function Call: WRITE
    • Prompt: !!,?6,"Episode End Date: ",$P(DISPLAY,U,4)
    • Line Location: EN+133
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EN+135
    Function Call: WRITE
    • Prompt: !,?4,"Episode Start Date: ",$P(DISPLAY,U,2)
    • Line Location: EN+136
    Function Call: WRITE
    • Prompt: !,?7,"Ext. Start Date: ",$P(DISPLAY,U,2)
    • Line Location: EN+137
    Function Call: WRITE
    • Prompt: ?38,"Residential Remaining Days: ",$P(DISPLAY,U,4),!
    • Line Location: EN+138
    Function Call: WRITE
    • Prompt: !,"Primary Eligibility: ",$S($D(^DIC(8,+X1,0)):$P(^(0),"^",1)_" ("_$S(X="V":"VERIFIED",X="P":"PENDING VERIFICATION",X="R":"PENDING REVERIFICATION",1:"NOT VERIFIED")_")",1:DGRPU)
    • Line Location: EN+141
    Function Call: WRITE
    • Prompt: !,"Other Eligibilities: "
    • Line Location: EN+142
    Function Call: WRITE
    • Prompt: !?21
    • Condition for execution: $X+$L(X)>79
    • Line Location: EN+147
    Function Call: WRITE
    • Prompt: X
    • Line Location: EN+147
    Function Call: WRITE
    • Prompt: !?6,"Unemployable: ",$S($P(DGRP(.3),U,5)="Y":"YES",1:"NO")
    • Line Location: EN+151
    Function Call: WRITE
    • Prompt: !?6,"Permanent & Total Disabled: ",$S($P(DGRP(.3),U,4)="Y":"YES",1:"NO")
    • Line Location: EN+154
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR("-",78)
    • Line Location: EN+160
    Function Call: WRITE
    • Prompt: !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE")
    • Line Location: EN+162
    Function Call: WRITE
    • Prompt: !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2)
    • Line Location: EN+164
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR("-",78)
    • Line Location: EN+165
    Function Call: WRITE
    • Prompt: !,$$EZBLD^DIALOG(261133)
    • Line Location: EN+167
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+179
    Function Call: WRITE
    • Prompt: !!?14,"Scheduled Admit"
    • Line Location: SAA+1
    Function Call: WRITE
    • Prompt: " on "_$$FMTE^XLFDT(L,"5DZ")
    • Line Location: SAA+4
    Function Call: WRITE
    • Prompt: !!,"Currently enrolled in "
    • Condition for execution: SDCT=1
    • Line Location: CL+0
    Function Call: WRITE
    • Prompt: !?22
    • Condition for execution: $X>50
    • Line Location: CL+0
    Function Call: WRITE
    • Prompt: $S($D(^SC(+^(0),0)):$P(^(0),"^",1)_", ",1:"")
    • Line Location: CL+0
    Function Call: WRITE
    • Prompt: !!,"Future Appointments: "
    • Line Location: FA+3
    Function Call: WRITE
    • Prompt: "Appointment Database is Unavailable"
    • Line Location: FA+8
    Function Call: WRITE
    • Prompt: "NONE"
    • Line Location: FA+9
    Function Call: WRITE
    • Prompt: ?22,"Date",?33,"Time",?39,"Clinic",!?22
    • Line Location: FA+11
    Function Call: WRITE
    • Prompt: "="
    • Line Location: FA+11
    Function Call: WRITE
    • Prompt: !,"See Scheduling options for additional appointments."
    • Line Location: FA+20
    Function Call: WRITE
    • Prompt: !!,"Remarks: ",$P(^DPT(DFN,0),"^",10)
    • Line Location: RMK+0
    Function Call: WRITE
    • Prompt: !!
    • Line Location: RMK+2
    Function Call: WRITE
    • Prompt: "Date of Death Information"
    • Line Location: RMK+3
    Function Call: WRITE
    • Prompt: !,?5,"Date of Death: ",$G(PDTHINFO(2,DFN_",",.351,"E"))
    • Line Location: RMK+4
    Function Call: WRITE
    • Prompt: !,?5,"Source of Notification: ",$G(PDTHINFO(2,DFN_",",.353,"E"))
    • Line Location: RMK+5
    Function Call: WRITE
    • Prompt: !,?5,"Updated Date/Time: ",$G(PDTHINFO(2,DFN_",",.354,"E"))
    • Line Location: RMK+6
    Function Call: WRITE
    • Prompt: !,?5,"Last Edited By: ",$G(PDTHINFO(2,DFN_",",.355,"E")),!
    • Line Location: RMK+7
    Function Call: WRITE
    • Prompt: !!,"VHA Profiles Currently Assigned to Veteran:"
    • Line Location: HBP+1
    Function Call: WRITE
    • Prompt: !,?3,DGLINE
    • Line Location: HBP+14
    Function Call: WRITE
    • Prompt: !,?3,"None"
    • Line Location: HBP+17
    Function Call: WRITE
    • Prompt: !!,"Language Date/Time: ",$S(DGLANGDT="":"UNANSWERED",1:DGLANGDT),!
    • Line Location: L1+0
    Function Call: WRITE
    • Prompt: ?1,"Preferred Language: ",$S(DGPRFLAN="":"UNANSWERED",1:DGPRFLAN)
    • Line Location: L1+1
    Function Call: WRITE
    • Prompt: !,"Birth Sex : ",$$GET1^DIQ(2,DFN,".02","E")
    • Line Location: SOGI+3
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation: "
    • Line Location: SOGI+5
    Function Call: WRITE
    • Prompt: !,"Sexual Orientation Free Text: ",$$GET1^DIQ(2,DFN,".0251","E")
    • Line Location: SOGI+11
    Function Call: WRITE
    • Prompt: !,"Pronoun: "
    • Line Location: SOGI+12
    Function Call: WRITE
    • Prompt: !,"Pronoun Description: ",$$GET1^DIQ(2,DFN,".24061","E")
    • Line Location: SOGI+16
    Function Call: WRITE
    • Prompt: !,"Self-Identified Gender Identity: ",$$GET1^DIQ(2,DFN,".024","E")
    • Line Location: SOGI+17

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD,  GET1^DIQ,  GETS^DIQ
    2.025 GETS^DIQ
    2.141 GET1^DID
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call