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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: VADPT2

Package: Registration

Routine: VADPT2


Information

VADPT2 ;ALB/MJK - ESTABLISH PATIENT VARIABLES ; 3/23/88 9:13 PM ; [10/20/95 4:02pm]

Source Information

Source file <VADPT2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$NOW^XLFDT  
Registration 1 (GET,KVAR)^VADPT30  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Registration 6 DGL  DGMTR  DGPMVPU  DGRPC2  VADPT0  VADPT31  
Income Verification Match 3 IVMCMZ  IVMUFNC1  IVMUFNC2  
Integrated Billing 3 IBAMTS1  IBAMTV1  IBJDF2  
Lab Service 3 LR7ORB3  LRAPUTL  LRVRPOC  
Order Entry Results Reporting 3 ORB3TIM2  ORKPS  ORKPS1  
Scheduling 3 SDAM1  SDAM2  SDAMA308  
Virtual Patient Record 3 VPRDVSIT  VPREVNT  VPRSDAQ  
PCE Patient Care Encounter 2 PXRRPCE4  VSITCK1  
Adverse Reaction Tracking 1 GMRACMR5  
Automated Lab Instruments 1 LA7QRY1  
Clinical Case Registries 1 RORXU001  
Clinical Information Resource Network 1 RGPRSSN  
Clinical Procedures 1 MDCPHL7C  
Dietetics 1 FHNO21  
Enterprise Health Management Platform 1 HMPDVSIT  
Mental Health 1 YTQHL7  
Radiology Nuclear Medicine 1 RACTRG2  
Record Tracking 1 RTNQ41  

Entry Points

Name Comments DBIA/ICR reference
5 ; -- INP call
DONE
IB ;In-Bed status
; input: VAINDT = internal date of requested info
; VAMV = starting IFN
; VAMV0 = 0th of VAMV
IBQ
CHK ; -- check if mvt exists and if 'while asih' type d/c
; if VAMV returned undefined then continue $Oing
CHKQ
ADM ; -- send back adm ifn for dfn on vaindt or now
  • ICR #325
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    GET^VADPT30 5+7
    KVAR^VADPT30 DONE
    $$NOW^XLFDT 5+1, ADM+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" 5+17
    ^DG(405.1 - [#405.1] 5+20, IB+14
    ^DG(405.2 - [#405.2] IB+16
    ^DGPM - [#405] 5+8, IB+12, CHK+3, CHK+5, ADM+3
    ^DGPM("APID" 5+4
    ^DGPM("APMV" IB+9, CHK+5
    ^DGPM("ATID1" ADM+3

    Label References

    Name Line Occurrences
    CHK 5+4
    CHKQ CHK+4
    DONE 5+6
    IB 5+14
    IBQ IB+11, IB+13

    Naked Globals

    Name Field # of Occurrence
    ^( 5+4, IB+9, CHK+5
    ^("E" IB+16
    ^(0 5+8, 5+20, IB+12, IB+14, CHK+3, CHK+5, ADM+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DFN 5+4, IB+9, CHK+5, ADM+3
    U ADM+3
    >> VAAP 5+1*, 5+11
    VACA 5+8*, 5+11, DONE!
    VACA0 5+8*, 5+17, 5+20, DONE!
    >> VACN 5+7*
    >> VADMVT ADM+2*, ADM+3, ADM+4*
    VADT ADM+1*, ADM+2, ADM+4, ADM+5!
    >> VADX 5+1*
    VAID 5+4*, DONE!, CHK+5, ADM+2*, ADM+3*, ADM+5!
    VAINDT 5+2~*, 5+3, IB+9, ADM+1
    >> VAIP("L" IB+10
    VAMT 5+4, DONE!, CHK+3*
    VAMV 5+1!, 5+4*!, 5+8, DONE!, IB+10, CHK+3, CHK+4!, CHK+5!, ADM+3*, ADM+4
    , ADM+5!
    VAMV0 5+1!, 5+4!, 5+6, 5+8*, DONE!, IB+9, IB+10, CHK+3*, CHK+4, CHK+5!
    , ADM+3*, ADM+4, ADM+5!
    VAMV1 ADM+3*, ADM+4, ADM+5!
    VAMVT 5+8*, DONE!
    VANOW 5+1*, 5+2, DONE!
    >> VAPP 5+1*, 5+11
    >> VAPRC 5+7*
    >> VAPRT 5+7*
    >> VARM 5+1*, 5+11
    >> VAS 5+11, 5+14, 5+17, 5+20
    VATD 5+3*, 5+4, DONE!
    >> VATS 5+1*, 5+11
    >> VAV 5+11, 5+14, 5+17, 5+20
    >> VAWD 5+1*, 5+11
    VAX0 IB+12*, IB+13, IB+14, IB+16, IBQ!
    VAXI IB+9*, IB+10*, IB+11, IB+12, IB+14*, IB+16, IBQ!
    >> VAZ 5+14, IB+8*, IB+16*
    >> VAZ(2 IB+8*, IB+16*
    >> Y 5+17*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All