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

Package: Registration

Routine: DGREG


Information

DGREG ;ALB/JDS,MRL/PJR/PHH-REGISTER PATIENT ; 3/28/14 12:38pm

Source Information

Source file <DGREG.m>

Call Graph

Call Graph Total: 37

Package Total Call Graph
Registration 22 (HINQ,PAUSE)^DG10  $$ADD^DGADDUTL  ($$FINDCUR,$$STATUS)^DGENA  $$VET^DGENPTA  ($$LOCK,UNLOCK)^DGENPTA1  ($$FINDLAST,$$GET,$$QRY)^DGENQRY  ($$PROMPT,PROMPT)^DGENU  ($$PRFQRY,DISPPRF)^DGPFAPI  
$$EN^DGPFMPI  DIED^DGPMV  (,Q1)^DGREG0  EL^DGREGE  $$DIVCHK^DGREGFAC  ^DGREGG  $$ROMQRY^DGROAPI  (EN1,NEW)^DGRP  
^DGRPC  EN^DGRPD  LO^DGUTL  HL7A08^VAFCDD01  $$QUERYTF^VAFCTFU1  $$PRIM^VASITE  
VA FileMan 7 EN^DDIOL  ^DIC  YN^DICN  (,CHK)^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  
Master Patient Index VistA 2 $$GETICN^MPIF001  MPIQ^MPIFAPI  
Health Level Seven 1 $$HLDATE^HLFNC  
Income Verification Match 1 REG^IVMCQ  
Record Tracking 1 ADM^RTQ3  

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

Package Total Caller Graph
Registration 7 DG REGISTER PATIENT  DGCOL  DGENUPL4  DGENUPL7  DGREG0  DGREG00  DGRPC2  
Fee Basis 1 FBCHREQ  

Entry Points

Name Comments DBIA/ICR reference
START ;
EN
A
ENRYN
ENRDATE ;
PREEXIST(DFN) ;DG*5.3*993 - Did this patient exist before the installation of DG*5.3*993
HELPENR ;DG*5.3*993 - Help for ?? on the DO YOU WISH TO ENROLL? question
SETSET(TYPE) ;DG*5.3*993 - Help display for field #27.11,#.01 single and double ?
GETSET(REASON) ;
PAUSE ;
RT
A1
PR
CK
CH
CH1
SEEN
ABIL
ENR ; next line appears to be dead code. left commented just to test. mli 4/28/94
REG
ASKDIV
CONT ; continue
PR2
PR3
H
Q
Q1
EL
FEE
  • ICR #699
    • Status: Active
    • Usage: Private
    WARN
    MSG
    BEGINREG(DFN) ;
    ENDREG(DFN) ;
    IFREG(DFN) ;
    CIRN ;MPI QUERY
    ROMQRY ;**926 TRIGGER IB INSURANCE QUERY

    External References

    Name Field # of Occurrence
    ^%ZIS EN+4, EN+6, ENRDATE+44
    ^%ZTLOAD ROMQRY+5
    EN^DDIOL ROMQRY+9, ROMQRY+19, ROMQRY+24
    HINQ^DG10 ENRDATE+45
    PAUSE^DG10 A+2
    $$ADD^DGADDUTL A1+2
    $$FINDCUR^DGENA A+23, ENRYN+2, ENRYN+20, ENRDATE+37
    $$STATUS^DGENA ENRYN+1, REG+13
    $$VET^DGENPTA ENRYN
    $$LOCK^DGENPTA1 BEGINREG+12
    UNLOCK^DGENPTA1 ENDREG+5
    $$FINDLAST^DGENQRY BEGINREG+8
    $$GET^DGENQRY BEGINREG+8
    $$QRY^DGENQRY BEGINREG+9
    $$PROMPT^DGENU ENRDATE+12
    PROMPT^DGENU ENRDATE+5
    $$PRFQRY^DGPFAPI A+13
    DISPPRF^DGPFAPI A+13
    $$EN^DGPFMPI A+14
    DIED^DGPMV A+6
    ^DGREG0 CONT+4
    Q1^DGREG0 Q
    EL^DGREGE CONT+1
    $$DIVCHK^DGREGFAC REG+33, ASKDIV+4
    ^DGREGG ABIL
    $$ROMQRY^DGROAPI ROMQRY+15
    EN1^DGRP A1
    NEW^DGRP A+2
    ^DGRPC CK
    EN^DGRPD ENRDATE+44
    LO^DGUTL EN
    ^DIC A+2, REG+6
    YN^DICN A1PRSEEN
    ^DIE ENRDATE+18, ENRDATE+27, ENRDATE+35, REG+24, ASKDIV+3, CONT+1, CONT+2, CONT+3
    CHK^DIE REG+1
    ^DIK REG+29
    $$GET1^DIQ A+23, ENRYN+2, ENRYN+4, ENRYN+20, ENRDATE+37, PREEXIST+9, SETSET+6
    GETS^DIQ A+24
    ^DIR ENRYN+9, ENRYN+24, PAUSE+2
    $$HLDATE^HLFNC ENRDATE+25
    REG^IVMCQ ENRDATE+47
    $$GETICN^MPIF001 PREEXIST+3
    MPIQ^MPIFAPI CIRN+4
    ADM^RTQ3 ENRDATE+46, RT
    HL7A08^VAFCDD01 ENRDATE+44
    $$QUERYTF^VAFCTFU1 PREEXIST+5
    $$PRIM^VASITE EN+2
    $$FMDIFF^XLFDT BEGINREG+9
    $$NOW^XLFDT ENRYN+17, BEGINREG+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$C(7),"Not a printer"
    • Line Location: EN+4
    Function Call: WRITE
    • Prompt: !,"Using closest printer ",Y,!
    • Line Location: EN+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: A+2
    Function Call: WRITE
    • Prompt: !!?5,"This is an existing patient. To complete the enrollment"
    • Line Location: ENRYN+12
    Function Call: WRITE
    • Prompt: !?5,"application process, please use the Enrollment System."
    • Line Location: ENRYN+12
    Function Call: WRITE
    • Prompt: !!!?5,"Press <Enter> to Continue or '^' to exit:"
    • Line Location: ENRYN+13
    Function Call: WRITE
    • Prompt: !,"SELF-REPORTED REGISTRATION ONLY REASON"
    • Line Location: ENRYN+22
    Function Call: WRITE
    • Prompt: !,"Select Y or YES if the patient wants to apply for enrollment for VHA"
    • Line Location: HELPENR+1
    Function Call: WRITE
    • Prompt: !,"Healthcare benefits. Select N or NO if the patient only wants to"
    • Line Location: HELPENR+2
    Function Call: WRITE
    • Prompt: !,"register without applying for enrollment."
    • Line Location: HELPENR+3
    Function Call: WRITE
    • Prompt: !!,"Is the patient currently being followed in a clinic for the same condition"
    • Line Location: PR+0
    Function Call: WRITE
    • Prompt: !?4,$C(7),"Enter 'Y' if the patient is being followed in clinic for condition for which",!?6,"registered, 'N' if not."
    • Line Location: PR+1
    Function Call: WRITE
    • Prompt: !!,"There is still an open disposition--register aborted.",$C(7),$C(7)
    • Line Location: CH1+0
    Function Call: WRITE
    • Prompt: !!,"Enter 'Y' if the patient is to be examined today, 'N' if not.",$C(7)
    • Line Location: SEEN+0
    Function Call: READ
    • Variable: ANS
    • Timeout: DTIME
    • Line Location: REG+1
    Function Call: WRITE
    • Prompt: " ("_RESULT(0)_")"
    • Line Location: REG+2
    Function Call: WRITE
    • Prompt: !!,"You must enter a date that does not exist.",$C(7),$C(7)
    • Line Location: REG+4
    Function Call: WRITE
    • Prompt: !!?5,"The facility chosen either has no pointer to an Institution"
    • Line Location: ASKDIV+0
    Function Call: WRITE
    • Prompt: !?5,"file record or the Institution file record is inactive."
    • Line Location: ASKDIV+1
    Function Call: WRITE
    • Prompt: !?5,"Please choose another division."
    • Line Location: ASKDIV+2
    Function Call: WRITE
    • Prompt: !!,"You can only enter new registrations through this option.",$C(7),$C(7)
    • Line Location: PR2+0
    Function Call: WRITE
    • Prompt: !!,"Time is required to register the patient.",!!,$C(7),$C(7)
    • Line Location: PR3+0
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue."
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY AN INPATIENT***",!
    • Line Location: WARN+0
    Function Call: WRITE
    • Prompt: !,$C(7),"***PATIENT IS CURRENTLY A LODGER***",!
    • Line Location: WARN+1
    Function Call: WRITE
    • Prompt: !,"Another user is editing, try later ..."
    • Line Location: MSG+0
    Function Call: WRITE
    • Prompt: !!,"Enrollment/Eligibility Query sent ...",!!
    • Line Location: BEGINREG+9
    Routine Call
    • %ZIS
    • Line Location:
      • EN+4
      • EN+6
      • ENRDATE+44
    Routine Call
    • DIC
    • Line Location:
      • A+2
      • REG+6
    Routine Call
    • DIE
    • Line Location:
      • ENRDATE+18
      • ENRDATE+27
      • ENRDATE+35
      • REG+24
      • ASKDIV+3
      • CONT+1
      • CONT+2
      • CONT+3
    Routine Call
    • DIE
    • Line Location:
      • REG+1
    Routine Call
    • DIR
    • Line Location:
      • ENRYN+9
      • ENRYN+24
      • PAUSE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
    2.101 CHK^DIE
    ^DGEN(27.11 - [#27.11] GET1^DIQ
    ^DIC(4 - [#4] GET1^DIQ
    ^DG(408.43 - [#408.43] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] EN+6
    ^%ZOSF("TEST" CIRN+2
    ^DG(40.8 - [#40.8] EN+3, REG+18, REG+22
    ^DG(408.43 - [#408.43] SETSET+5, GETSET+3
    ^DG(43 - [#43] EN+4, EN+6, REG+18, REG+22
    ^DIC(195.4 - [#195.4] ENRDATE+46, RT
    ^DIC(4 - [#4] PREEXIST+9
    ^DIC(8 - [#8] EL
    ^DPT - [#2] A+5, ENRDATE+9, ENRDATE+43, CHREG+4, REG+6, CONT+1, CONT+3, ELWARN
    WARN+1
    ^DPT("ADA" CH1REG+6
    ^TMP( BEGINREG+11, ENDREG+4, IFREG+10, IFREG+12

    Label References

    Name Line Occurrences
    $$GETSET ENRYN+25
    $$PREEXIST ENRYN+1
    $$SETSET ENRYN+24
    A A+6, ENRYN+15, ENRDATE+44
    A1 ENRDATE+48, H
    ASKDIV ASKDIV+4
    BEGINREG A+2
    CH A1+3
    CH1 CHREG+6
    CIRN A+8
    CK A1
    CONT REG+33
    DGREG EN+4, FEE
    EL REG+24
    ENDREG AENRDATE+44
    ENRYN ENRYN+18, ENRDATE+3, ENRDATE+40
    H A1
    MSG REG+6, REG+24
    PR PR+1, CH1
    PR3 REG+1
    Q A1PRCH1SEENREG+1, REG+25, MSG
    Q1 A+2, FEE
    REG REG+1, REG+4, PR2PR3
    ROMQRY A+16
    SEEN PR+2, SEEN
    WARN ENRDATE+43

    Naked Globals

    Name Field # of Occurrence
    ^( CHELWARNWARN+1
    ^("UP" ENRDATE+46, RT
    ^("VET" ENRDATE+43
    ^(0 EN+6, REG+6*, REG+18, REG+22, EL
    ^(2 CONT+3
    ^(99 EN+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % A1*, PR*, PR+1, PR+2, SEEN*
    >> %DT REG*
    >> %DT("A" REG*, REG+1
    >> %ZIS EN+4*, EN+6*, ENRDATE+44*
    >> %ZIS("A" EN+4*
    >> %ZIS("B" EN+3*, EN+5!
    A ROMQRY+1~, ROMQRY+14~, ROMQRY+19*, ROMQRY+24*
    ANS ENRDATE+1~, REG+1*
    >> APD REG+4*
    CURR ENRDATE+42*, PR+2*, REG+22, Q1!
    DA A+2*, ENRDATE+14~, ENRDATE+15*, ENRDATE+19!, ENRDATE+22~, ENRDATE+24*, ENRDATE+28!, ENRDATE+31~, ENRDATE+33*, ENRDATE+36!
    ENRDATE+43*, A1, CH1*, REG+6, REG+16*, REG+20*, REG+27~, REG+28*, ASKDIV+3*, CONT+1*
    CONT+2*, CONT+3*
    DA(1 REG+1*, REG+6, REG+17*, REG+21*, REG+28*, ASKDIV+3*, CONT+1*
    DFN AA+2*, A+5, A+6!, A+13, A+14, A+23, A+24, ENRYNENRYN+1
    ENRYN+2, ENRYN+4, ENRYN+20, ENRDATE+9, ENRDATE+15, ENRDATE+24, ENRDATE+33, ENRDATE+37, ENRDATE+43, ENRDATE+44!
    ENRDATE+47, PREEXIST~, PREEXIST+3, A1+2, CHCH1REGREG+1, REG+4, REG+13
    REG+17, REG+21, REG+28, REG+33, ASKDIV+3, ASKDIV+4, CONT+1, CONT+2, CONT+3, EL
    WARNWARN+1, BEGINREG~, BEGINREG+6, BEGINREG+8, BEGINREG+9, BEGINREG+11, BEGINREG+12, ENDREG~, ENDREG+3
    , ENDREG+4, ENDREG+5, IFREG~, IFREG+8, IFREG+10, IFREG+12, CIRN+4, ROMQRY+3, ROMQRY+15
    >> DFN1 REG+4*, REG+16, REG+20, REG+24, REG+28, REG+33, ASKDIV+3, ASKDIV+4, CONT+1, CONT+3
    DG Q!
    DGAPPTAN ENRDATE+10~, ENRDATE+12, ENRDATE+21, ENRDATE+30
    DGARR PREEXIST+1~, PREEXIST+5!
    DGARR( PREEXIST+7
    DGASKDEV EN+4*, Q1!
    DGBACK A+21~, A+23*, ENRYN*, ENRYN+4, ENRYN+14*, ENRYN+15, ENRDATE+1~, ENRDATE+2*, ENRDATE+12*, ENRDATE+40
    DGCHK REG+11~, REG+12*, REG+13*, REG+14*, REG+15, REG+19
    >> DGCLPR EN*
    DGCLRP Q1!
    DGCURR ENRYN+1~, ENRYN+2*
    DGDFLT ENRDATE+10~*, ENRDATE+11*
    DGDIV EN+1~, EN+2*, EN+3
    >> DGEDCN CK*
    DGELVER ENRDATE+44*, Q1!
    DGENRDT A+21~, ENRDATE+6*
    DGENRDTT ENRDATE+1~, ENRDATE+6*, ENRDATE+25*
    DGENRIEN A+21~
    >> DGENRODT ENRYN+26*, ENRDATE+38*
    DGENRRSN A+21~, ENRYN+17*, ENRYN+18, ENRYN+23, ENRYN+25*, ENRDATE+38*
    DGENRYN A+21~, ENRYN*, ENRYN+1*, ENRYN+3*, ENRYN+4, ENRYN+10*, ENRYN+11*, ENRYN+16*, ENRYN+18, ENRDATE+3
    REG+13*, REG+14*
    >> DGENSRCE ENRYN+26*, ENRDATE+38*
    DGERR A+21~
    DGESKNOWN PREEXIST+1~, PREEXIST+7*, PREEXIST+10*, PREEXIST+11, PREEXIST+12, PREEXIST+13
    DGEXIST PREEXIST+1~, PREEXIST+2*, PREEXIST+5*, PREEXIST+6, PREEXIST+12, PREEXIST+13
    DGEXIT A+21~, ENRDATE+3*, ENRDATE+5*
    DGFC ENRDATE+42*, ENRDATE+43*, RT*, Q1!
    DGFDA A+21~
    DGFDD A+21~, A+25*, ENRYN+4, ENRYN+16
    DGICN PREEXIST+1~, PREEXIST+2*, PREEXIST+3*, PREEXIST+4, PREEXIST+5
    DGIEN A+21~, A+23*
    DGINST PREEXIST+1~, PREEXIST+8*, PREEXIST+9
    DGINSTAT PREEXIST+1~, PREEXIST+8*, PREEXIST+9*, PREEXIST+10
    DGINSTID PREEXIST+1~, PREEXIST+7*, PREEXIST+9*, PREEXIST+10
    DGIO EN+6, Q1!
    DGIO( EN+6*
    DGIO("HS" EN+4*
    DGIO("PRF" EN+4*
    DGIO("RT" EN+4*
    DGIO(10 EN+4*
    DGL SETSET+3~, SETSET+4*, SETSET+7*, SETSET+8*
    DGMSG ROMQRY+1~, ROMQRY+9, ROMQRY+19, ROMQRY+24
    DGMSG(1 ROMQRY+7*, ROMQRY+17*, ROMQRY+22*
    DGMSG(2 ROMQRY+8*, ROMQRY+18*, ROMQRY+23*
    DGN SETSET+3~, SETSET+5*, SETSET+6
    DGNDLOCK REG+24~*
    DGNEW A+2*, A+10, ENRDATE+43, A1A1+1, Q1!, ROMQRY+11
    DGNEWP A+1~, A+2
    DGNOW A+21~, ENRYN+17*, ENRYN+26, ENRDATE+6, ENRDATE+38
    DGOUT A+21~, A+24!, SETSET+3~, SETSET+4*, SETSET+7*, SETSET+8*, SETSET+9
    DGOUT( A+25
    >> DGPME A+6*
    DGPREXST ENRYN+1~*, ENRYN+4, ENRYN+18
    DGPTAPPLD ENRYN+1~*, ENRYN+2*, ENRYN+3, ENRYN+4, ENRYN+5, ENRYN+10, ENRYN+11, ENRYN+12, ENRYN+13
    DGQRY BEGINREG+1~, BEGINREG+8*
    DGQRY("SENT" BEGINREG+9
    DGREC PREEXIST+1~, PREEXIST+7*, PREEXIST+8
    DGRPFEE FEE*!
    DGRPOUT A+6!, ENRDATE+44!
    >> DGRPV A1*
    DGRS SETSET+3~, SETSET+5*, SETSET+7, SETSET+8
    DGSTA A+21~, A+23*
    DGSTUS REG+11~, REG+13*
    DGSXS ENRDATE+10~*, ENRDATE+12*, ENRDATE+13
    DGVET A+21~, ENRYN*, ENRYN+4
    DGX A+21~, A+25*, ENRYN+20*, ENRDATE+37*, PREEXIST+1~, PREEXIST+7*, PREEXIST+11*, PREEXIST+12*, PREEXIST+13*, PREEXIST+14
    , SETSET+3~, SETSET+6*, SETSET+7, SETSET+8
    >> DGXXXD CONT+1*
    DGY A+21~, ENRYN+20*, ENRYN+21, ENRDATE+37*
    >> DIC A+2*, REG*
    >> DIC("A" REG+24!
    >> DIC("B" A+2!
    >> DIC("S" A+2!
    >> DIC(0 A+2*, REG+6*
    DIE A+21~, ENRDATE+14~, ENRDATE+16*, ENRDATE+19!, ENRDATE+22~, ENRDATE+23*, ENRDATE+28!, ENRDATE+31~, ENRDATE+32*, ENRDATE+36!
    , REG*, REG+6, REG+24, CONT+1*, CONT+2*, CONT+3*
    DIE("NO^" REG+16*, REG+20*, ASKDIV+3*, CONT+2!
    DIK REG+27~, REG+28*
    >> DILOCKTM REG+6, REG+24, BEGINREG+11, IFREG+10
    >> DINUM REG+3*, REG+4, REG+6
    DIR A+21~, ENRYN+5!, ENRYN+24!, PAUSE+1~
    DIR("?" ENRYN+7*
    DIR("??" ENRYN+8*
    DIR("A" ENRYN+6*, ENRYN+24*
    DIR("B" ENRYN+5*
    DIR(0 ENRYN+6*, ENRYN+24*, PAUSE+2*
    >> DIV RT
    DLAYGO A+2*!
    >> DOD A+5*, A+6
    >> DP REG+17*, REG+21*, ASKDIV+3*
    DQ Q!
    DR A+21~, ENRDATE+14~, ENRDATE+17*, ENRDATE+19!, ENRDATE+22~, ENRDATE+26*, ENRDATE+28!, ENRDATE+31~, ENRDATE+34*, ENRDATE+36!
    REG+18*, REG+22*, ASKDIV+3*, CONT+1*, CONT+2*, CONT+3*, EL*, EL+1*
    DTIME ENRYN+13, REG+1
    DTOUT ENRYN+5!, ENRYN+14, ENRYN+25, REG+25, REG+26!
    >> DUOUT ENRYN+25
    DUZ REG+18, REG+22, ROMQRY+3
    I EN+6*, PREEXIST+1~, PREEXIST+7*
    ION EN+4
    >> IOP EN+6*, ENRDATE+44*
    >> IOS EN+6
    IOST EN+4
    MPIFRTN CIRN+3!, CIRN+5!
    >> POP EN+4
    REASON GETSET~, GETSET+3
    >> RESULT REG+1, REG+2, REG+3
    >> RESULT(0 REG+2
    RETURN IFREG+7~, IFREG+11*, IFREG+13
    >> SEEN SEEN*, REG+18, REG+22
    STATUS ENRYN+1~*, ENRYN+21
    TYPE SETSET~, SETSET+7, SETSET+8
    U EN+3, EN+4, EN+6, ENRYN+14, ENRYN+24, RT
    >> VAFCDDT REG+9*
    >> VET ENRDATE+43*
    X ENRYN+10, ENRYN+11, ENRYN+12, ENRYN+13*, ENRYN+14, CH*, REG+1*, REG+6*, REG+9, CIRN+2~*
    >> X1 CH*
    >> XQY0 ENRYN+24
    Y EN+6*, A+2~, A+6*, ENRYN+25, ENRDATE+5!, ENRDATE+6, REG+1*, REG+4, REG+6
    Y(0 ENRYN+25
    >> Y1 REG+4*
    ZTDESC ROMQRY+1~, ROMQRY+4*
    ZTDTH ROMQRY+1~, ROMQRY+4*
    ZTIO ROMQRY+1~, ROMQRY+4*
    ZTRTN ROMQRY+1~, ROMQRY+4*
    ZTSAVE ROMQRY+1~
    ZTSAVE("DFN" ROMQRY+3*
    ZTSAVE("IBDUZ" ROMQRY+3*
    ZTSAVE("IBTYPE" ROMQRY+3*
    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