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 |  Marked Items  | All
Print Page as PDF
Routine: DGRPE

Package: Registration

Routine: DGRPE


Information

DGRPE ;ALB/MRL,LBD,BRM,TMK,BAJ,PWC,JAM,JAM,JAM,LEG,ARF,JAM - REGISTRATIONS EDITS ;23 May 2017 1:51 PM

Source Information

Source file <DGRPE.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Registration 18 $$CVEDT^DGCV  $$UPD^DGENDBS  EN^DGR111  EN^DGREGTED  EN^DGRP1152A  EN^DGRP11B  EDIT^DGRP15  EN^DGRP61  
EN^DGRP6CL  EN^DGRP6EF  EN^DGRP7CP  ^DGRPE  (,DR207)^DGRPE1  ^DGRPE4  CEDITS^DGRPECE  ^DGRPEIS  
EDIT9^DGRPEIS2  EDITPH1^DGRPLE  
VA FileMan 5 EN^DDIOL  ^DIC  (,FILE)^DIE  ^DIK  ^DIR  
Integrated Billing 1 (PREG,REG)^IBCNBME  

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

Package Total Caller Graph
Registration 5 DGRPE  DGRPP  DGRPTX  DGRPU1  DGUTL  
Scheduling 1 SDM  

Entry Points

Name Comments DBIA/ICR reference
Q
SETDR(DGDR,DR) ; Set up DR string(s) for edit groups selected
S
SETFLDS(DGDR) ; Set up fields to edit
101 ;;
102 ;;1;
103 ;;.091;
; DG*5.3*1111 - PAGER moved to DR104^DGRPE1, Email Address Indicator moved to YN1316^DGRPE1
; Handle timeout/exits from either field edit
; DG*5,3*1143 - Group 4 on screen 1 is read-only - this group edit logic is now on screen 1.1 group 5
105 ;;D DR207^DGRPE1;
106 ;;.2405;
108 ;;N FLG S (FLG(1),FLG(2))=1 D EN^DGREGAED(DFN,.FLG);
109 ;;N FLG S (FLG(1),FLG(2))=1 D EN^DGREGAED(DFN,.FLG);.02;D DR207^DGRPE;7LANGUAGE DATE/TIME;D LANGDEL^DGRPE;D DR109^DGRPE;6;2;K DR(2,2.02),DR(2,2.06);.05;.08;K DIE("NO^");
; DG*5.3*1040 - If no timeout from previous field then proceed to next prompt
111 ;;N FLG S (FLG(1),FLG(2))=1 D EN^DGREGRED(DFN,.FLG);D:'+$G(DGTMOT) RESMVQ^DGREGCP1(DFN);
112 ;;S:$G(^DPT(DFN,.11))'=""!($G(DGADDGRP2(.111))'="") Y="@30";D DR11^DGRPE1 S:$G(^DPT(DFN,.11))'="" Y="@31" S:$G(DGADDGRP2(.111))'="" Y="@31";
; DG*5.3*1040 - If no timeout from previous field then proceed to next prompt
112000 ;;@30;N FLG S FLG(1)=0,FLG(2)=1 D EN^DGREGAED(DFN,.FLG) D:'+$G(DGTMOT) PERMMVQ^DGREGCP1(DFN);@31;
; DG*5.3*1143 - Tag 113 replaced with call to modified DGREGTED which gets start/end dates
113 ;;D EN^DGREGTED(DFN,"TEMP");K DIE("NO^");
115 ;;I $G(DGRTAON)=1 D DR115^DGRPE1 S Y="@99";.134;I '$$DR104^DGRPE1 S Y="@99";@21;S X=$$YN1316^DGRPE1(DFN) I +$G(DGTMOT) S Y="@99";S:(X["N")&($P($G(^DPT(DFN,.13)),"^",3)="") Y="@25";S:(X["N")&($P($G(^DPT(DFN,.13)),"^",3)]"") Y="@24";
115000 ;;.133;S:($P($G(^DPT(DFN,.13)),U,16)="Y")&($G(X)="") Y="@21";S Y="@25";@24;.133///@;@25;.1317///NOW;@99;
201 ;;.05;.08;.092;.093;.2403;57.4//NOT APPLICABLE;
202 ;;1010.15//NO;S:X'="Y" Y="@22";S DIE("NO^")="";1010.152;I X']"" W !?4,*7,"But I need to know where you were treated most recently." S Y=1010.15;1010.151;1010.154;S:X']"" Y="@22";1010.153;@22;K DIE("NO^");
203 ;;D DR203^DGRPE;6ETHNICITY;2RACE;K DR(2,2.02),DR(2,2.06);
205 ;;.181;
; patch DG*5.3*1064; ARF; added group 6 to the PATIENT DATA, SCREEN <2>
206 ;;D DR206^DGRPE;
; patch DG*5.3*985 - NOK - Tags 301 and 302 for Primary and Secondary NOK: phone number no longer copied when copying patient address - phone number entered on its own
; patch DG*5.3*997; jam; Tags 301-305 modified to allow for copy or entry of Country/foreign addresses
301 ;;.211;S:X']"" Y="@31";N RET S RET=$$DR300^DGRP3("K",.224,.212) I $G(DGTMOT)=1!('RET) S Y="@31";.2125//NO;I X="Y" S DGADD=".21" D AD^DGRPE S Y="@30";.221//USA;.213;S:X']"" Y=.216;.214;S:X']"" Y=.216;.215;.216;
301000 ;;S DGADD=".21" D DR301^DGRPE S:DG4=1 Y=.222;.217;.2207;S Y="@30";.222;.223;@30;K DG4;.219;.21011;@31;
302 ;;.2191;S:X']"" Y="@32";N RET S RET=$$DR300^DGRP3("K2",.2104,.2192) I $G(DGTMOT)=1!('RET) S Y="@32";.21925//NO;I X="Y" S DGADD=".211" D AD^DGRPE S Y="@301";
302000 ;;.2101//USA;.2193;S:X']"" Y=.2196;.2194;S:X']"" Y=.2196;.2195;.2196;S DGADD=".211" D DR301^DGRPE S:DG4=1 Y=.2102;.2197;.2203;S Y="@301";.2102;.2103;@301;K DG4;.2199;.211011;@32;
303 ;;N DGX1,DGX2;I '$L($P($G(^DPT(DFN,.21)),U)) S Y="@33";.3305//NO;I X="Y" S Y="@34",DGX1=1 S:$D(^DPT(DFN,.22)) $P(^(.22),U,1)=$P(^(.22),U,7);@33;.331;S:X']"" DGX1=2,Y="@34";
303000 ;;N RET S RET=$$DR300^DGRP3("E",.3309,.332) I $G(DGTMOT)=1!('RET) S Y="@351";@34;
303001 ;;S:$G(DGX1) Y="@341";.3306//USA;.333;S:X']"" Y=.336;.334;S:X']"" Y=.336;.335;.336; S DGADD=".33" D DR301^DGRPE S:DG4=1 Y=.3307;.337;.2201;S Y="@361";.3307;.3308;@361;K DG4;.339;.33011;S DGX1=2;@341;
303002 ;;S:$G(DGX1)=2 Y="@35";S DGX2=$G(^DPT(DA,.21));.331///^S X=$P(DGX2,U);.332///^S X=$P(DGX2,U,2);.333////^S X=$P(DGX2,U,3);.334///^S X=$P(DGX2,U,4);.3306///^S X=$P(DGX2,U,12);.3307///^S X=$P(DGX2,U,13);.3308///^S X=$P(DGX2,U,14);@35;
303003 ;;S:$G(DGX1)=2 Y="@351";.335///^S X=$P(DGX2,U,5);.336///^S X=$P(DGX2,U,6);.337///^S X=$P(DGX2,U,7);.338///^S X=$P(DGX2,U,8);.339///^S X=$P(DGX2,U,9);.33011///^S X=$P(DGX2,U,11);.3309///^S X=$P(DGX2,U,15);@351;K DGX1,DGX2;
304 ;;.3311;S:X']"" Y="@36";N RET S RET=$$DR300^DGRP3("E2",.331015,.3312) I $G(DGTMOT)=1!('RET) S Y="@36";.331012//USA;.3313;S:X']"" Y=.3316;.3314;S:X']"" Y=.3316;.3315;.3316; S DGADD=".331" D DR301^DGRPE S:DG4=1 Y=.331013;.3317;
304000 ;;.2204;S Y="@37";.331013;.331014;@37;K DG4;.3319;.331011;@36;
305 ;;N DGX1,DGX2;I '$L($P($G(^DPT(DFN,.21)),U)) S Y="@372";.3405//NO;I X="Y" S DGX1=1,Y="@371" S:$D(^DPT(DFN,.22)) $P(^(.22),U,2)=$P(^(.22),U,7);@372;.341;S:X']"" DGX1=2,Y="@371";
305000 ;;N RET S RET=$$DR300^DGRP3("D",.34015,.342) I $G(DGTMOT)=1!('RET) S Y="@39";@371;
305001 ;;S:$G(DGX1) Y="@38";.34012//USA;.343;S:X']"" Y=.346;.344;S:X']"" Y=.346;.345;.346; S DGADD=".34" D DR301^DGRPE S:DG4=1 Y=.34013;.347;.2202;S Y="@391";.34013;.34014;@391;K DG4;.349;.34011;S DGX1=2;@38;
305002 ;;S:$G(DGX1)=2 Y="@381";S DGX2=$G(^DPT(DA,.21));.341///^S X=$P(DGX2,U);.342///^S X=$P(DGX2,U,2);.343///^S X=$P(DGX2,U,3);.344///^S X=$P(DGX2,U,4);.34012///^S X=$P(DGX2,U,12);.34013///^S X=$P(DGX2,U,13);.34014///^S X=$P(DGX2,U,14);@381
305003 ;;S:$G(DGX1)=2 Y="@39";.345///^S X=$P(DGX2,U,5);.346///^S X=$P(DGX2,U,6);.347///^S X=$P(DGX2,U,7);.348///^S X=$P(DGX2,U,8);.349///^S X=$P(DGX2,U,9);.34011///^S X=$P(DGX2,U,11);.34015///^S X=$P(DGX2,U,15);@39;K DGX1,DGX2;
401 ;;.01;.31115;S:($S(X']"":1,X=3:1,X=9:1,1:0)) Y="@41" S:(X'=5) Y=.3111;.31116;.3111;S:X']"" Y="@41";.3113;S:X']"" Y=.3116;.3114;S:X']"" Y=.3116;.3115:.3117;.2205;.3119;@41;
402 ;;.2514;.2515;S:($S(X']"":1,X=3:1,X=9:1,1:0)) Y="@42" S:(X'=5) Y=.251;.2516;.251;S:X']"" Y="@42";.252;S:X']"" Y=.255;.253;S:X']"" Y=.255;.254:.256;.2206;.258;@42;
501 ;;
502 ;;.381;.382///NOW;
503 ;;.383;
601 ;;Q;
602 ;;Q;
603 ;;Q;
604 ;;.525//NO;S:X'="Y" Y="@62";.526:.528;@62;
605 ;;.5291//NO;S:X'="Y" Y="@63";.5292:.5294;@63;
606 ;;I $P($G(^DPT(DFN,.361)),U,3)="H" S Y="@6131";.3602//NO;.3603//NO;S Y="@6132";@6131;.3602;.3603;@6132;
607 ;;.368//NO;.369//NO;I $S('$D(^DPT(DA,.36)):1,$P(^(.36),U,8)="Y"!($P(^(.36),U,9)="Y"):0,1:1) S Y="@614";.37;@614;
608 ;;S DGPHFLG=0;.531;S:X'="Y" DGX=X,Y="@616";.532///^S X="PENDING";S Y="@6161";@616;S:DGX'="N" Y="@6162";.533///^S X="VAMC";@6161;S DGPHFLG=1;.535///^S X=$$DIV^DGRPLE();@6162;
AD ; DG*5.3*1014;jam; Replace code below - store data via Fileman and not direct global sets
; Input: DGADD =.21 for copying to NOK
; =.211 for copying to NOK2
DR109 ;Drop through (use same logic as DR203)
DR203
DR206 ;DG*5.3*1064; Code for group 6 on screen 2
REENTER ;NULL attestation date is not allowed - redisplay prompt
CONFIRM() ;Confirm if user wants to save the changes - DG*5.3*1064
EOP ;DG*5.3*1064
DR207 ; DR string for preferred language ;*///*
DR301 ; jam; DG*5.3*997 - check for foreign address
PRF ; Write Proof needed for FV
SET32(DA,DIPA,SEQ) ; Extract the .32 node from patient file and set DIPA
; array with the BOS and component data for the SEQ military service
; episode (1-3)
WARN32(X,DIPA,SEQ,Y) ; Warn if the BOS is changed, then the component will
; be deleted
; Returns Y to skip component if the component should not be asked
; for this branch of service
CMP(X) ; Function to determine if service component is valid for
; branch of service ien in X 0 = invalid 1 = valid
; Component only valid for ARMY/AIR FORCE/MARINES/COAST GUARD/NOAA/USPHS/SPACE FORCE
INPXF207 ; Input transform for field 7 in file ;*///*
XHELP207 ; This is a screen to be sure the language is a 'living' language, i.e.in use today and that it has the required 2-character code. ;*///*
LANGDEL ; If no language entered, remove the stub record ;*///*
  • ICR #6405
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    EN^DDIOL INPXF207+2
    $$CVEDT^DGCV DGRPE+57
    $$UPD^DGENDBS AD+36
    EN^DGR111 DGRPE+39
    EN^DGREGTED DGRPE+23
    EN^DGRP1152A DGRPE+42
    EN^DGRP11B DGRPE+41
    EDIT^DGRP15 DGRPE+44
    EN^DGRP61 DGRPE+35
    EN^DGRP6CL DGRPE+36
    EN^DGRP6EF DGRPE+37
    EN^DGRP7CP DGRPE+38
    ^DGRPE DGRPE+20, DGRPE+26
    ^DGRPE1 DGRPE+48
    DR207^DGRPE1 DGRPE+52
    ^DGRPE4 DGRPE+49
    CEDITS^DGRPECE DGRPE+7
    ^DGRPEIS DGRPE+8
    EDIT9^DGRPEIS2 DGRPE+9
    EDITPH1^DGRPLE DGRPE+60
    ^DIC INPXF207+5, XHELP207+1
    ^DIE DGRPE+53
    FILE^DIE REENTER+13
    ^DIK LANGDEL+5
    ^DIR DGRPE+59, DR206+4, REENTER+2, CONFIRM+5, EOP+4
    PREG^IBCNBME DGRPE+29
    REG^IBCNBME DGRPE+30

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"**NOTE-Change(s) made in this session deleted the veteran's Combat Vet status!"
    • Line Location: DGRPE+58
    Function Call: WRITE
    • Prompt: !?4,"But I need at least one active category."
    • Line Location: 113+4
    Function Call: WRITE
    • Prompt: !,"This is a required response. Enter "_"'^'"_" to exit"
    • Line Location: REENTER+6
    Function Call: WRITE
    • Prompt: !,"Indian attestation not saved.",!
    • Line Location: REENTER+11
    Function Call: WRITE
    • Prompt: !,"Changes saved.",!
    • Line Location: REENTER+14
    Function Call: WRITE
    • Prompt: !?4,$C(7),"Proof is required for Filipino vet."
    • Line Location: PRF+1
    Function Call: WRITE
    • Prompt: !!,*7,"** WARNING - BRANCH OF SERVICE WAS CHANGED SO THE COMPONENT WAS DELETED",!
    • Line Location: WARN32+9
    Routine Call
    • DIC
    • Line Location:
      • INPXF207+5
      • XHELP207+1
    Routine Call
    • DIE
    • Line Location:
      • DGRPE+53
    Routine Call
    • DIE
    • Line Location:
      • REENTER+13
    Routine Call
    • DIR
    • Line Location:
      • DGRPE+59
      • DR206+4
      • REENTER+2
      • CONFIRM+5
      • EOP+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DI(.85 - [#.85] Classic Fileman Calls
    ^DPT - [#2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DI( INPXF207+5
    ^DPT - [#2] AD+13, DR207+7, DR301+3, SET32+5, LANGDEL+2
    ^HL(779.004 - [#779.004] DR207+8, DR301+4

    Label References

    Name Line Occurrences
    $$CMP WARN32+5
    $$CONFIRM REENTER+8
    EOP REENTER+12, REENTER+14
    Q DGRPE+8, DGRPE+9, DGRPE+12, DGRPE+33, DGRPE+38, DGRPE+44
    REENTER REENTER+6
    S SETDR+4, SETDR+6
    SETDR DGRPE+50

    Naked Globals

    Name Field # of Occurrence
    ^( AD+13, SET32+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D1 LANGDEL+1, LANGDEL+2, LANGDEL+5
    DA DGRPE+47*, DGRPE+51*, Q!, DR206+2~, DR206+3*, REENTER+1*, SET32~, SET32+5, LANGDEL+5*
    >> DFN DGRPE+7, DGRPE+23, DGRPE+29, DGRPE+30, DGRPE+35, DGRPE+36, DGRPE+37, DGRPE+38, DGRPE+39, DGRPE+41
    , DGRPE+42, DGRPE+47, DGRPE+51, DGRPE+57, AD+13, AD+36, DR206+3, DR206+8, REENTER+1, REENTER+7
    , DR207+7, DR301+3, LANGDEL+2
    DG3 DR207+5~, DR207+7*, DR207+9, DR301+1~, DR301+3*, DR301+5
    DG33 DR207+5~, DR207+8*, DR207+9, DR301+1~, DR301+4*, DR301+5
    >> DG4 DR207+6*, DR207+9*, DR301+2*, DR301+5*
    DGADD AD+15, AD+26, AD+37!, DR301+3
    DGCOMLOC Q!
    DGCT DGRPE+47*, Q!, SETDR+1~, SETDR+2*, S+1*
    DGCVFLG DGRPE+57, Q!
    DGDATA AD+11~, AD+36
    DGDATA( AD+16*, AD+17*, AD+18*, AD+19*, AD+20*, AD+21*, AD+22*, AD+23*, AD+24*, AD+27*
    , AD+28*, AD+29*, AD+30*, AD+31*, AD+32*, AD+33*, AD+34*, AD+35*
    DGDR DGRPE+7, DGRPE+12, DGRPE+14, DGRPE+15~, DGRPE+20*, DGRPE+26*, DGRPE+28, DGRPE+33, DGRPE+35, DGRPE+36
    , DGRPE+37, DGRPE+38, DGRPE+39, DGRPE+41, DGRPE+42, DGRPE+50, DGRPE+52, Q!, SETDR~, SETDR+3
    , SETFLDS~
    DGDR1 DGRPE+15~, DGRPE+17*, DGRPE+20
    DGDR2 DGRPE+15~, DGRPE+18*, DGRPE+26
    DGDRCOPY DGRPE+13~, DGRPE+14*, DGRPE+17, DGRPE+18
    DGDRD Q!, SETDR+4*, SETDR+6*, S, S+1
    DGDRS DGRPE+47*, Q!, SETDR+1~, SETDR+2*, S, S+1*
    DGERR DR206+2~
    DGERROR AD+11~, AD+36
    DGFDA DR206+2~
    DGFDA(2 DR206+8*, REENTER+7*
    DGPH DGRPE+46~
    DGPHFLG DGRPE+46~, DGRPE+60
    DGPMA AD+11~, AD+13*, AD+16, AD+17, AD+18, AD+19, AD+20, AD+21, AD+22, AD+23
    , AD+24, AD+27, AD+28, AD+29, AD+30, AD+31, AD+32, AD+33, AD+34, AD+35
    >> DGPRFLG DGRPE+29
    DGRPADI Q!
    >> DGRPS DGRPE+7, DGRPE+8, DGRPE+9, DGRPE+28, DGRPE+33, DGRPE+38, DGRPE+39, DGRPE+41, DGRPE+42, DGRPE+44
    , DGRPE+48, DGRPE+49, DGRPE+55
    >> DGTMOT DGRPE+21, DGRPE+24, DGRPE+55*, DR206+7*, REENTER+5*, REENTER+10, CONFIRM+6*, EOP+5*
    DIC INPXF207+4~*, XHELP207+1~*
    DIC("S" INPXF207+4*, XHELP207+1*
    DIC(0 INPXF207+4*, XHELP207+1*
    DIE DGRPE+47*, DGRPE+51*, Q!
    DIE("NO^" DGRPE+23*!
    DIK LANGDEL+5*!
    DIPA Q!, SET32~, WARN32~
    DIPA("X" SET32+6*
    DIPA(32 SET32+4!, SET32+6*, WARN32+6
    >> DIQUIET WARN32+9
    DIR DGRPE+59!, DR206+2~, CONFIRM+1~, EOP+1~
    DIR("?" CONFIRM+4*
    DIR("A" DR206+3*, REENTER+1*, CONFIRM+3*, EOP+3*
    DIR(0 DGRPE+59*, DR206+3*, REENTER+1*, CONFIRM+2*, EOP+2*
    DIROUT CONFIRM+1~, CONFIRM+8, EOP+1~
    DR DGRPE+47!*, DGRPE+50, Q!, SETDR~, SETDR+2!*
    DR(2 DR203*, DR203+1*
    DTOUT DGRPE+55, DR206+2~, DR206+7, REENTER+5, CONFIRM+1~, CONFIRM+6, EOP+1~, EOP+5
    DUOUT DR206+2~, DR206+6, REENTER+4, CONFIRM+1~, CONFIRM+8, EOP+1~
    >> FMT INPXF207+2*
    I Q!, SETDR+3*, SET32+3~
    J Q!, SETDR+3*, SETDR+6
    J1 Q!, SETDR+1~, SETDR+3*, SETDR+6*
    J2 SETDR+1~, SETDR+5~, SETDR+6*
    Q SET32+3~, SET32+5*, SET32+6
    QUIT DGRPE+32~*, DGRPE+33, DGRPE+36, DGRPE+37, DGRPE+38
    SEQ SET32~, SET32+4, SET32+6, WARN32~, WARN32+5, WARN32+6
    U DGRPE+57, AD+16, AD+17, AD+18, AD+19, AD+20, AD+21, AD+22, AD+23, AD+24
    , AD+27, AD+28, AD+29, AD+30, AD+31, AD+32, AD+33, AD+34, AD+35, DR207+7
    , DR301+3, SET32+6, WARN32+7, INPXF207+5, LANGDEL+3
    X DR206+2~, CONFIRM+1~, EOP+1~, WARN32~, WARN32+5, WARN32+7, CMP~, CMP+3, INPXF207+1!, INPXF207+2*
    , INPXF207+3, INPXF207+5*!, XHELP207+1~*, LANGDEL+2~*, LANGDEL+3
    Y DGRPE+47*, DGRPE+51*, DR206+2~, DR206+8, DR206+9, REENTER+6, REENTER+7, CONFIRM+1~, CONFIRM+7, EOP+1~
    , WARN32~, WARN32+5*, INPXF207+5
    Z SET32+3~, SET32+5*, SET32+6, WARN32+4~, WARN32+6*, WARN32+7

    Marked Items

    Name Field # of Occurrence
    $T(@J1 SETDR+3, SETDR+4, SETDR+6
    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 |  Marked Items  | All