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

Package: Registration

Routine: DGRPD


Information

DGRPD ;ALB/MRL,MLR,JAN,LBD,EG,BRM,JRC,BAJ,JAM-PATIENT INQUIRY (NEW) ;July 09, 2014 12:16pm

Source Information

Source file <DGRPD.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Registration 12 $$CVEDT^DGCV  GETHBP^DGHBPUTL  DOM^DGMTR  DIS^DGMTU  (CS,INP)^DGPMV10  $$COUNTY^DGRPCADD  ($$OKLINE,CATDIS,EC,HDR)^DGRPD1  AL^DGRPU  
WW1^DGRPV  $$PCTEAM^DGSDUTL  ($$INACTIVE,$$PTR2TEXT)^DGUTL4  (DEM,IN5,KVA)^VADPT  
VA FileMan 6 ^DIC  $$GET1^DID  $$EXTERNAL^DILFD  GETS^DIQ  ^DIR  ^DIWP  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Enrollment Application System 1 DIS^EASECU  
Integrated Billing 1 DISP^IBARXEU  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Registration 8 DG PATIENT INQUIRY  DG10  DGCOL  DGOERR PATIENT INQUIRY  DGPREP2  DGREG  DGSWITCH  VAFCEHLM  
Accounts Receivable 1 RCTCSWL  
Automated Medical Information Exchange 1 DVBA REG OFF PATIENT INQ  
Barcode Medication Administration 1 PSBOPI  
Clinical Information Resource Network 1 RGEX03  
Imaging 1 MAGGTCPR  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORCXPND1  
Outpatient Pharmacy 1 PSOCPF2  
Womens Health 1 WVFACE  

Entry Points

Name Comments DBIA/ICR reference
OREN
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
    LANGUAGE ; Get language data *///*
    CL
    SAA ;Scheduled Admit Data
    COV
    INP
    Q
    FA ;
    L1
    RMK
    SA
    SEL
    HBP

    External References

    Name Field # of Occurrence
    $$CVEDT^DGCV EN+109
    GETHBP^DGHBPUTL HBP+3
    DOM^DGMTR EN+136
    DIS^DGMTU EN+138
    CS^DGPMV10 INP+2
    INP^DGPMV10 INP
    $$COUNTY^DGRPCADD EN+17, EN+19, EN+46, EN+49
    $$OKLINE^DGRPD1 EN+81, EN+105, EN+107, EN+114, EN+117, EN+120, EN+123, EN+135, EN+144, EN+145
    , SA, RMK, RMK+8
    CATDIS^DGRPD1 EN+122
    EC^DGRPD1 RMK+8
    HDR^DGRPD1 EN+3
    AL^DGRPU EN+10, EN+28, EN+37
    WW1^DGRPV EN+13
    $$PCTEAM^DGSDUTL EN+128
    $$INACTIVE^DGUTL4 EN+91, EN+98
    $$PTR2TEXT^DGUTL4 EN+92, EN+99
    ^DIC SEL
    $$GET1^DID EN+71
    $$EXTERNAL^DILFD EN+22, EN+82
    GETS^DIQ RMK+1
    ^DIR SEL
    ^DIWP EN+93, EN+100
    DIS^EASECU EN+142
    DISP^IBARXEU EN+140
    $$SDAPI^SDAMA301 FA+3
    DEM^VADPT EN+3
    IN5^VADPT EN+139
    KVA^VADPT Q
    $$FMTE^XLFDT EN+110, EN+127, SAA+4, FA+16
    $$REPEAT^XLFSTR EN+125, EN+130

    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,"Permanent 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,"Birth Sex: ",$S($P(VADM(5),"^",2)]"":$P(VADM(5),"^",2),1:"UNSPECIFIED")
    • Line Location: EN+85
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+86
    Function Call: WRITE
    • Prompt: !,?9,$G(RACE(X,0)),?51,$G(ETHNIC(X,0))
    • Line Location: EN+104
    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+110
    Function Call: WRITE
    • Prompt: ?45,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ")
    • Line Location: EN+110
    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+112
    Function Call: WRITE
    • Prompt: !,"Other Eligibilities: "
    • Line Location: EN+113
    Function Call: WRITE
    • Prompt: !?21
    • Condition for execution: $X+$L(X)>79
    • Line Location: EN+113
    Function Call: WRITE
    • Prompt: X
    • Line Location: EN+113
    Function Call: WRITE
    • Prompt: !?6,"Unemployable: ",$S($P(DGRP(.3),U,5)="Y":"YES",1:"NO")
    • Line Location: EN+116
    Function Call: WRITE
    • Prompt: !?6,"Permanent & Total Disabled: ",$S($P(DGRP(.3),U,4)="Y":"YES",1:"NO")
    • Line Location: EN+119
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR("-",78)
    • Line Location: EN+125
    Function Call: WRITE
    • Prompt: !,"[PRE-REGISTER DATE:] "_$S(DGPDT]"":$$FMTE^XLFDT(DGPDT,"1D"),1:"NONE ON FILE")
    • Line Location: EN+127
    Function Call: WRITE
    • Prompt: !,"[PRIMARY CARE TEAM:] "_$P(DGPTM,U,2)
    • Line Location: EN+129
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR("-",78)
    • Line Location: EN+130
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+141
    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: !!,"Health Benefit Plans Currently Assigned to Veteran:"
    • Line Location: HBP+0
    Function Call: WRITE
    • Prompt: !,?3,"None"
    • Line Location: HBP+7
    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
    Routine Call
    • DIC
    • Line Location:
      • SEL
    Routine Call
    • DIR
    • Line Location:
      • SEL

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD,  GETS^DIQ
    2.141 GET1^DID

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" EN+57, EN+58, EN+65, EN+66, LANGUAGE+6
    ^DG(43 - [#43] EN+3
    ^DGS(41.1 - [#41.1] SA
    ^DGS(41.41 - [#41.41] EN+126
    ^DIC(13 - [#13] EN+85
    ^DIC(21 - [#21] EN+84
    ^DIC(42 - [#42] SAA+2
    ^DIC(45.7 - [#45.7] SAA+3
    ^DIC(8 - [#8] EN+112, EN+113
    ^DPT - [#2] EN+2, EN+5, EN+68, EN+72, EN+73, EN+74, EN+82, EN+89, EN+90, EN+92
    , EN+96, EN+97, EN+99, CL, RMK, LANGUAGE+2, LANGUAGE+4, LANGUAGE+5
    ^DPT("AEL" EN+113
    ^SC - [#44] CL
    ^TMP($J FA+8, FA+9, FA+12, FA+13, FA+14, FA+18, FA+20, RMK+11!, COV
    ^UTILITY($J EN+88!, EN+94, EN+95!, EN+101, EN+102!

    Label References

    Name Line Occurrences
    CL SA
    COV FA+15
    EN SEL, OREN
    FA CL
    HBP RMK+10
    INP EN+144
    L1 LANGUAGE+3
    LANGUAGE EN+106
    Q SEL, EN+81, EN+105, EN+107, EN+114, EN+117, EN+120, EN+123, EN+135
    RMK FA+8, FA+9, FA+12
    SA EN+145
    SAA SA
    SEL SEL

    Naked Globals

    Name Field # of Occurrence
    ^( EN+5, CL
    ^(0 EN+3, EN+84, EN+85, EN+112, EN+113, SAA+2, SAA+3, CL

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT Q!
    ADM RMK+11!
    C FA+14*, RMK+11!
    CONACT EN+29~, EN+31*, EN+32, EN+36*, EN+54, EN+63, EN+70
    COV FA+18, RMK+11!, COV*, COV+1*
    CT FA+3*, FA+12, RMK+11!, COV+1*
    D0 Q!
    D1 Q!
    DFN SEL!*, EN+2, EN+5, EN+68, EN+72, EN+73, EN+74, EN+82, EN+89, EN+90
    , EN+92, EN+96, EN+97, EN+99, EN+109, EN+113, EN+126, EN+128, EN+138, EN+140
    , EN+142, SA, CL, FA+2, FA+9, FA+12, FA+13, FA+14, FA+18, FA+20
    , RMK, RMK+1, RMK+4, RMK+5, RMK+6, RMK+7, HBP+3, COV, OREN*, LANGUAGE+2
    , LANGUAGE+4, LANGUAGE+5
    DGA EN+27!, Q!
    DGA( EN+15, EN+43
    DGA(1 EN+13, EN+41, EN+45
    DGA(2 EN+13, EN+41, EN+48
    DGA1 EN+10*, EN+27!, EN+28*, EN+37*, Q!
    DGA2 EN+10*, EN+27!, EN+28*, EN+37*, Q!
    DGABBRV EN+3*, EN+84, EN+85, EN+86, Q!
    DGACT EN+60~, EN+74*, EN+75*, EN+77
    DGAD EN+10*, EN+28*, EN+37*, Q!
    DGAPPT FA+16~*, FA+17
    DGARRAY FA+1~, FA+3, RMK+11!
    DGARRAY("FLDS" FA+2*
    DGARRAY("SORT" FA+2*
    DGARRAY(1 FA+2*
    DGARRAY(4 FA+2*
    DGBEG EN+60~, EN+65*
    DGCABEG EN+34~, EN+35*, EN+36
    DGCAEND EN+34~, EN+35*, EN+36
    DGCAN EN+60~, EN+72*, EN+73, EN+74
    DGCAT EN+60~, EN+71*, EN+76
    DGCC EN+16~, EN+17*, EN+18, EN+19*, EN+20, EN+46*, EN+47, EN+49*, EN+50, Q!
    DGCMOR EN+2*, Q!
    DGCOUNT HBP+1~, HBP+2*, HBP+6*, HBP+7
    DGCV EN+109~*, EN+110
    DGD RMK+11!
    DGD1 RMK+11!
    DGDOM EN+134~, EN+137, Q!
    DGDOM1 EN+134~
    DGEMER EN+82~*, EN+83
    DGEND EN+60~, EN+66*
    DGHBP HBP+1~, HBP+4*, HBP+5
    DGHOW EN+3!
    DGI EN+34~, EN+64*, EN+65, EN+66, EN+76*, EN+78*
    DGLANG0 LANGUAGE+1*, LANGUAGE+5*, L1+2!
    DGLANGDA LANGUAGE+4*, LANGUAGE+5, L1+2!
    DGLANGDT LANGUAGE+1*, LANGUAGE+2*, LANGUAGE+3, LANGUAGE+4, LANGUAGE+6*, L1, L1+2!
    DGLOCATN Q!
    DGMPI EN+2*, Q!
    DGPDT EN+124~, EN+126*, EN+127
    DGPMDCD INP+2!
    DGPMIFN INP+2!
    DGPMT INP+1*, INP+2!
    DGPMVI INP+2!
    DGPRFLAN LANGUAGE+1*, LANGUAGE+5*, L1+1, L1+2!
    >> DGPRFLG EN+123
    DGPTM EN+124~, EN+128*, EN+129
    DGRP EN+17, EN+19, EN+46, EN+49, Q!
    DGRP( EN+5*, EN+21, EN+22, EN+23, EN+24, EN+25, EN+28, EN+31, EN+35, EN+53
    , EN+54, EN+56, EN+57, EN+58, EN+64, EN+84, EN+112, EN+116, EN+119
    DGRP(0 EN+85
    DGRPOUT SEL!, EN+3!, EN+145, SA, RMK
    DGRPU EN+3*, EN+21, EN+23, EN+24, EN+25, EN+53, EN+54, EN+58, EN+59, EN+84
    , EN+85, EN+112, Q!
    DGS Q!
    DGST Q!
    >> DGSWITCH INP+2
    DGTYP EN+60~, EN+74*, EN+77
    DGTYPNAM EN+60~, EN+76*, EN+77*
    DGX EN+60~, EN+62*, EN+64*, EN+65*, EN+66*, EN+67, EN+72*, EN+77*, EN+78
    DGXFR0 Q!
    DGXX EN+60~, EN+78*, EN+79
    DGZ EN+60~, EN+64*
    DIC SEL*, Q!
    DIC(0 SEL*
    DIR Q!
    DIR(0 SEL*
    DIROUT Q!
    DIRUT Q!
    DIS RMK+11!
    DIWF EN+87~, EN+93*, EN+100*
    DIWL EN+87~, EN+93*, EN+100*
    DIWR EN+87~, EN+93*, EN+100*
    DT EN+36, EN+140, SA, FA+2, FA+9, FA+12
    DTIME OREN
    DTOUT SEL, Q!
    DUOUT SEL, Q!
    ETHNIC EN+87~, EN+101*
    ETHNIC( EN+104
    ETHNIC(1 EN+101*, EN+103
    FA FA+12*, FA+13, FA+14, FA+16, FA+18, FA+20, RMK+11!, COV
    HBP HBP+1~
    HBP("CUR" HBP+4
    I EN+5*, EN+15*, EN+43*, EN+113*, Q!, SA*, CL*, FA+11*, RMK+11!
    I1 EN+15*, EN+43*, Q!
    L Q!, SA*, SAA+4, RMK+11!
    LDM Q!
    NOW RMK+11!
    >> ORVP OREN
    >> PDTHINFO(2 RMK+4, RMK+5, RMK+6, RMK+7
    POP Q!
    PTR EN+87~, EN+89*, EN+90, EN+92, EN+96*, EN+97, EN+99
    RACE EN+87~, EN+94*
    RACE( EN+104
    RACE(1 EN+94*, EN+103
    SDCNT FA+1~, FA+3*, RMK+11!
    SDCT Q!, CL*
    SSN RMK+11!
    STAT FA+13~*, FA+14, COV+1
    TRN RMK+11!
    U EN+21, EN+22, EN+23, EN+24, EN+25, EN+35, EN+53, EN+54, EN+56, EN+57
    , EN+58, EN+110, EN+116, EN+119, EN+129, SAA+2, SAA+3, FA+13, FA+14, FA+18
    , COV, LANGUAGE+5
    VA Q!
    >> VADM(5 EN+85
    VAERR EN+134~
    VAHOW EN+134~
    VAINDT EN+134~
    VAIP EN+134~
    VAIP("D" INP*
    VAIP("L" EN+143*
    VAIP(1 EN+140
    VAL EN+87~, EN+90*, EN+91, EN+92*, EN+93, EN+97*, EN+98, EN+99*, EN+100
    VAROOT EN+134~
    X EN+55*, EN+58*, EN+59*, EN+61, EN+87~, EN+93*, EN+100*, EN+104*, EN+112*, EN+113*
    , Q!, SA*, SAA+2, SAA+3, OREN*
    X1 EN+112*, EN+113, Q!
    >> XQORQUIT OREN*
    Y SEL~, EN+57*, EN+58*, EN+59, EN+64*, EN+65, EN+66, Q!, LANGUAGE+5*, LANGUAGE+6*
    Z EN+12~, EN+13*
    Z1 EN+12~, EN+13*
    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