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

Call Graph Total: 29

Package Total Call Graph
Registration 18 (HINQ,PAUSE)^DG10  $$ADD^DGADDUTL  ($$LOCK,UNLOCK)^DGENPTA1  ($$FINDLAST,$$GET,$$QRY)^DGENQRY  ($$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  $$PRIM^VASITE  
VA FileMan 5 EN^DDIOL  ^DIC  YN^DICN  (,CHK)^DIE  ^DIK  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  
Income Verification Match 1 REG^IVMCQ  
Master Patient Index VistA 1 MPIQ^MPIFAPI  
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: 5

Package Total Caller Graph
Registration 4 DG REGISTER PATIENT  DGENUPL4  DGREG0  DGREG00  
Fee Basis 1 FBCHREQ  

Entry Points

Name Comments DBIA/ICR reference
START ;
EN
A
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, A+19
    ^%ZTLOAD ROMQRY+5
    EN^DDIOL ROMQRY+9, ROMQRY+19, ROMQRY+24
    HINQ^DG10 A+20
    PAUSE^DG10 A+1
    $$ADD^DGADDUTL A1+2
    $$LOCK^DGENPTA1 BEGINREG+12
    UNLOCK^DGENPTA1 ENDREG+5
    $$FINDLAST^DGENQRY BEGINREG+8
    $$GET^DGENQRY BEGINREG+8
    $$QRY^DGENQRY BEGINREG+9
    $$PRFQRY^DGPFAPI A+12
    DISPPRF^DGPFAPI A+12
    $$EN^DGPFMPI A+13
    DIED^DGPMV A+5
    ^DGREG0 CONT+4
    Q1^DGREG0 Q
    EL^DGREGE CONT+1
    $$DIVCHK^DGREGFAC REG+22, ASKDIV+4
    ^DGREGG ABIL
    $$ROMQRY^DGROAPI ROMQRY+15
    EN1^DGRP A1
    NEW^DGRP A+1
    ^DGRPC CK
    EN^DGRPD A+19
    LO^DGUTL EN
    ^DIC A+1, REG+6
    YN^DICN A1, PR, SEEN
    ^DIE REG+13, ASKDIV+3, CONT+1, CONT+2, CONT+3
    CHK^DIE REG+1
    ^DIK REG+18
    REG^IVMCQ A+22
    MPIQ^MPIFAPI CIRN+4
    ADM^RTQ3 A+21, RT
    HL7A08^VAFCDD01 A+19
    $$PRIM^VASITE EN+2
    $$FMDIFF^XLFDT BEGINREG+9
    $$NOW^XLFDT 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+1
    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
      • A+19
    Routine Call
    • DIC
    • Line Location:
      • A+1
      • REG+6
    Routine Call
    • DIE
    • Line Location:
      • REG+13
      • ASKDIV+3
      • CONT+1
      • CONT+2
      • CONT+3
    Routine Call
    • DIE
    • Line Location:
      • REG+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    2.101 CHK^DIE

    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+11
    ^DG(43 - [#43] EN+4, EN+6, REG+11
    ^DIC(195.4 - [#195.4] A+21, RT
    ^DIC(8 - [#8] EL
    ^DPT - [#2] A+4, A+18, CH, REG+4, REG+6, CONT+1, CONT+3, EL, WARN, WARN+1
    ^DPT("ADA" CH1, REG+6
    ^TMP( BEGINREG+11, ENDREG+4, IFREG+10, IFREG+12

    Label References

    Name Line Occurrences
    A A+5, A+19
    A1 A+23, H
    ASKDIV ASKDIV+4
    BEGINREG A+1
    CH A1+3
    CH1 CH, REG+6
    CIRN A+7
    CK A1
    CONT REG+22
    DGREG EN+4, FEE
    EL REG+13
    ENDREG A, A+19
    H A1
    MSG REG+6, REG+13
    PR PR+1, CH1
    PR3 REG+1
    Q A1, PR, CH1, SEEN, REG+1, REG+14, MSG
    Q1 A+1, FEE
    REG REG+1, REG+4, PR2, PR3
    ROMQRY A+15
    SEEN PR+2, SEEN
    WARN A+18

    Naked Globals

    Name Field # of Occurrence
    ^( CH, EL, WARN, WARN+1
    ^("UP" A+21, RT
    ^("VET" A+18
    ^(0 EN+6, REG+6*, REG+11, 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*, A+19*
    >> %ZIS("A" EN+4*
    >> %ZIS("B" EN+3*, EN+5!
    A ROMQRY+1~, ROMQRY+14~, ROMQRY+19*, ROMQRY+24*
    >> ANS REG+1*
    >> APD REG+4*
    CURR A+17*, PR+2*, REG+11, Q1!
    DA A+1*, A+18*, A1, CH1*, REG+6, REG+11*, REG+16~, REG+17*, ASKDIV+3*, CONT+1*
    , CONT+2*, CONT+3*
    DA(1 REG+1*, REG+6, REG+11*, REG+17*, ASKDIV+3*, CONT+1*
    DFN A, A+1*, A+4, A+5!, A+12, A+13, A+18, A+19!, A+22, A1+2
    , CH, CH1, REG, REG+1, REG+4, REG+11, REG+17, REG+22, ASKDIV+3, ASKDIV+4
    , CONT+1, CONT+2, CONT+3, EL, WARN, WARN+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+11, REG+13, REG+17, REG+22, ASKDIV+3, ASKDIV+4, CONT+1, CONT+3
    DG Q!
    DGASKDEV EN+4*, Q1!
    >> DGCLPR EN*
    DGCLRP Q1!
    DGDIV EN+1~, EN+2*, EN+3
    >> DGEDCN CK*
    DGELVER A+19*, Q1!
    DGFC A+17*, A+18*, RT*, Q1!
    DGIO EN+6, Q1!
    DGIO( EN+6*
    DGIO("HS" EN+4*
    DGIO("PRF" EN+4*
    DGIO("RT" EN+4*
    DGIO(10 EN+4*
    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*
    DGNDLOCK REG+13~*
    DGNEW A+1*, A+9, A+18, A1, A1+1, Q1!, ROMQRY+11
    >> DGPME A+5*
    DGQRY BEGINREG+1~, BEGINREG+8*
    DGQRY("SENT" BEGINREG+9
    DGRPFEE FEE*!
    DGRPOUT A+5!, A+19!
    >> DGRPV A1*
    >> DGXXXD CONT+1*
    >> DIC A+1*, REG*
    >> DIC("A" REG+13!
    >> DIC("B" A+1!
    >> DIC("S" A+1!
    >> DIC(0 A+1*, REG+6*
    >> DIE REG*, REG+6, REG+13, CONT+1*, CONT+2*, CONT+3*
    >> DIE("NO^" REG+11*, ASKDIV+3*, CONT+2!
    DIK REG+16~, REG+17*
    >> DILOCKTM REG+6, REG+13, BEGINREG+11, IFREG+10
    >> DINUM REG+3*, REG+4, REG+6
    >> DIV RT
    DLAYGO A+1*!
    >> DOD A+4*, A+5
    >> DP REG+11*, ASKDIV+3*
    DQ Q!
    >> DR REG+11*, ASKDIV+3*, CONT+1*, CONT+2*, CONT+3*, EL*, EL+1*
    DTIME REG+1
    DTOUT REG+14, REG+15!
    DUZ REG+11, ROMQRY+3
    >> I EN+6*
    ION EN+4
    >> IOP EN+6*, A+19*
    >> IOS EN+6
    IOST EN+4
    MPIFRTN CIRN+3!, CIRN+5!
    >> POP EN+4
    >> RESULT REG+1, REG+2, REG+3
    >> RESULT(0 REG+2
    RETURN IFREG+7~, IFREG+11*, IFREG+13
    >> SEEN SEEN*, REG+11
    U EN+3, EN+4, EN+6, RT
    >> VAFCDDT REG+9*
    >> VET A+18*
    X CH*, REG+1*, REG+6*, REG+9, CIRN+2~*
    >> X1 CH*
    Y EN+6*, A+1~, A+5*, REG+1*, REG+4, REG+6
    >> 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