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

Package: Inpatient Medications

Routine: PSJAC


Information

PSJAC ;BIR/CML3 - INPATIENT INFORMATION ;28 Apr 98 / 9:02 AM

Source Information

Source file <PSJAC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 2 ($$ENDTC,$$ENDTC2)^PSGMI  CNIV^PSJUTL1  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Kernel 1 (,HOME)^%ZIS  
List Manager 1 PAUSE^VALM1  
Registration 1 (DEM,IN5,INP)^VADPT  

Caller Graph

Caller Graph Total: 62

Package Total Caller Graph
Inpatient Medications 61 PSGAP  PSGAP0  PSGCAP0  PSGDS0  PSGDSP1  PSGEUDD  PSGL  PSGMAR0  
PSGMMAR  PSGMMAR0  PSGOE  PSGP  PSGPL1  PSGPLUP0  PSGPR  PSGTCTD  
PSGVBW  PSGVBW0  PSGVBW1  PSGVBWP  PSIV  PSIVAOR  PSIVHYPL  PSIVHYPR  
PSIVLABL  PSIVLABR  PSIVLBL1  PSIVMAN1  PSIVOD  PSIVOPT  PSIVORA  PSIVORC  
PSIVORE  PSIVPAT  PSIVPGE  PSIVPR  PSIVRNL  PSIVRP  PSIVSUS  PSIVSUS1  
PSIVUDL  PSIVUWL  PSJCLOR  PSJCLOR1  PSJCLOR2  PSJCLOR4  PSJEEU0  PSJEXP  
PSJHEAD  PSJHIS  PSJIBAG  PSJINHIS  PSJLMHED  PSJMDWS  PSJMEDS  PSJOE  
PSJOEA  PSJP  PSJPDV0  PSJPR  PSJU LM COPY  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ENBOTH ;
ENIV ;
  • ICR #1501
    • Status: Withdrawn
    • Usage: Private
    CHK ;
    CNV ;
    WP ; ward parameters
    DONE ;
    HTWT(DFN) ; Get patient's height and weight from Vitals.
    PSJAC2(PSJY2K)
    ACTCLIN(PSGP,PSGORD) ; Don't allow active clinic orders to be copied. If Pending order, allow CLINIC^PSJOE to reject based on order status.
    CLINIC ; clinic parameters

    External References

    Name Field # of Occurrence
    ^%ZIS WP+5
    HOME^%ZIS WP+5
    EN6^GMRVUTL HTWT+3, HTWT+4
    $$ENDTC^PSGMI CHK+13, CNV+6, HTWT+3, HTWT+4
    $$ENDTC2^PSGMI CNV+5, HTWT+3, HTWT+4
    CNIV^PSJUTL1 CHK+7
    DEM^VADPT CNV+1
    IN5^VADPT CHK+11
    INP^VADPT CHK+9
    PAUSE^VALM1 ACTCLIN+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"You cannot copy this CLINIC Order."
    • Line Location: ACTCLIN+5
    Routine Call
    • %ZIS
    • Line Location:
      • WP+5
    Routine Call
    • %ZIS
    • Line Location:
      • WP+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" HTWT+2
    ^PS(53.46 - [#53.46] CLINIC+1
    ^PS(55 - [#55] CHK+10, ACTCLIN+3, ACTCLIN+4
    ^PS(59.6 - [#59.6] WP+1

    Label References

    Name Line Occurrences
    CHK PSJAC+5, ENBOTH+1
    CLINIC WP+7
    CNV CHK+10, CHK+11
    DONE WP+1, WP+2
    HTWT CNV+1
    PSJAC PSJAC2+1

    Naked Globals

    Name Field # of Occurrence
    ^( CLINIC+1
    ^(1 CLINIC+1
    ^(5.1 CHK+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS WP+5!*
    CL CLINIC+1~*
    CLIEN CLINIC+1~*
    CLIN ACTCLIN+1~*, ACTCLIN+2*, ACTCLIN+3*, ACTCLIN+4*, ACTCLIN+5
    CLNAM CLINIC+1~
    CLNODE ACTCLIN+1~, ACTCLIN+3*, ACTCLIN+4*
    DFN PSJAC+5*, ENIV+1, CHK+7, HTWT~
    >> GMRVSTR HTWT+2*, HTWT+4*
    I ENIV+1~
    IO WP+5
    ION WP+5
    >> IOP WP+4*, WP+5*
    J ENIV+1~
    JJ ENIV+1~
    ON ENIV+1~
    >> POP WP+5
    PSGID CHK+13*, DONE+2!
    PSGOD DONE+2!
    PSGORD ACTCLIN~, ACTCLIN+2, ACTCLIN+3, ACTCLIN+4
    PSGP PSJAC+5, ENIV+1*, CHK+10, CNV+1, ACTCLIN~, ACTCLIN+3, ACTCLIN+4
    PSGP(0 CNV+2*
    >> PSJACND WP+2
    >> PSJACNWP WP+1
    PSJACPF PSJAC+5*, ENBOTH+1*, ENIV+1*, CHK+10, CHK+11, CNV+2, CNV+3, DONE+1, DONE+2!
    >> PSJPAD CHK+10*, CHK+12*
    >> PSJPAGE CNV+2*
    >> PSJPBID CNV+2*
    >> PSJPCAF CHK+10*, CHK+12*
    >> PSJPDD CHK+10*, CHK+13*
    >> PSJPDOB CNV+2*
    >> PSJPDX CHK+10*, CHK+13*
    >> PSJPHT HTWT+3*
    >> PSJPHTD HTWT+1*, HTWT+3*
    >> PSJPPID CNV+2*
    >> PSJPRB CHK+10*, CHK+13*
    >> PSJPSEX CNV+2*
    >> PSJPSSN CNV+2*
    >> PSJPTD CHK+10*, CHK+13*
    >> PSJPTS CHK+10*, CHK+13*
    >> PSJPTSP CHK+10*, CHK+13*
    >> PSJPWD CHK+10*, CHK+13*, WP+1
    >> PSJPWDN CHK+10*, CHK+13*
    >> PSJPWT HTWT+4*
    >> PSJPWTD HTWT+1*, HTWT+4*
    PSJRBXX ENIV+1~
    >> PSJSYSL WP+2*, WP+3, WP+5*
    >> PSJSYSP0 WP+4
    >> PSJSYSU WP+2
    >> PSJSYSW WP+1*
    >> PSJSYSW0 WP+1*, WP+2, WP+4
    >> PSJSYSW0("CLINIC" CLINIC+1*
    PSJY2K CNV+4, HTWT+3, HTWT+4, PSJAC2~
    U HTWT+3, HTWT+4
    >> VA("BID" CNV+2
    >> VA("PID" CNV+2
    VA200 CHK+9*, DONE+2!
    VADM DONE+1!
    VADM(1 CNV+2
    VADM(2 CNV+2
    VADM(3 CNV+2
    VADM(4 CNV+2
    VADM(5 CNV+2
    VADM(6 CHK+13
    VAIN DONE+1!
    VAIN(1 CHK+10
    VAIN(2 CHK+10
    VAIN(3 CHK+10
    VAIN(4 CHK+10
    VAIN(5 CHK+10
    VAIN(7 CHK+10
    VAIN(9 CHK+10
    VAIP DONE+1!
    VAIP("D" CHK+11*
    VAIP(13 CHK+12
    VAIP(3 CHK+13
    VAIP(4 CHK+13
    VAIP(5 CHK+13
    VAIP(6 CHK+13
    VAIP(7 CHK+13
    VAIP(8 CHK+13
    VAIP(9 CHK+13
    X ENIV+1~, CHK+13*, CNV+5*, CNV+6*, WP+2*, WP+4*, DONE+2!, HTWT+2*, HTWT+3, HTWT+4
    , HTWT+5*, HTWT+6*
    X1 ENIV+1~
    X2 ENIV+1~
    Y ENIV+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All