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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOBUILD

Package: Outpatient Pharmacy

Routine: PSOBUILD


Information

PSOBUILD ;IHS/DSD/JCM - BUILD ARRAY OF PATIENTS CURRENT MEDS [ 07/15/96 5:25 PM ] ;6/21/07 8:20am

Source Information

Source file <PSOBUILD.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Outpatient Pharmacy 3 ^PSODSPL  EN^PSOHLSN1  ECAN^PSOUTL  
VA FileMan 3 C^%DTC  ^DIE  $$GET1^DIQ  
List Manager 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 46

Package Total Caller Graph
Outpatient Pharmacy 44 PSOATRF  PSOATRFC  PSOATRFV  PSOBBC  PSOCAN1  PSOCAN2  PSOCAN4  PSOCPDUP  
PSOCPPRE  PSODDPR2  PSODDPR4  PSODDPRE  PSODGDG1  PSODGDG2  PSODISPS  PSODRDUP  
PSODRG  PSOHLD  PSOHLSG2  PSOLBLN2  PSOLBLS  PSOLLL5  PSOLLLHN  PSOLMUTL  
PSOMPHRC  PSONEW  PSOORCPY  PSOOREDT  PSOORFI2  PSOORNE1  PSOORNE2  PSOORNE4  
PSOPRK  PSOREF  PSOREF0  PSOREF1  PSORENW4  PSORESUS  PSORMRXD  PSORREF  
PSORX1  PSORXRP1  PSOTPRX1  PSOVER  
Inpatient Medications 1 PSJ LM PRINT OUTPATIENT PROFILE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
START
END
NVANEW ;New Complex NVA order multiple file format logic
NVAOLD ;NVA Backwards compatible for old NON-VA file DD, pre-complex order SIG multiple file setup
; (after 441. By attrition, all records will eventually have the new complex order mult. file format)
INIT ;
INITX
BUILD ;build profiles
BUILDX
GET ;data for profiles
GT1
BARC
GETX
STAT
FSTA
EOJ
INPAT(PSODFN) ;entry point for inpat meds to view patient's outpat. meds
  • ICR #2257
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    C^%DTC INIT+5, INPAT+2
    ^DIE GET+8, FSTA+1
    $$GET1^DIQ NVANEW+4, NVANEW+5, NVANEW+6, NVANEW+7, NVANEW+8
    ^PSODSPL INPAT+2
    EN^PSOHLSN1 GET+10
    ECAN^PSOUTL GET+9
    FULL^VALM1 INPAT+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    55.516 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] START+10, NVANEW+10, NVAOLD+3
    ^PS(50.7 - [#50.7] START+10, NVANEW+10, NVAOLD+3
    ^PS(52.41 - [#52.41] START+5, START+8*, START+12
    ^PS(52.5 - [#52.5] GET+13, GET+15!, GET+16, STATSTAT+1
    ^PS(53 - [#53] INIT+2, INIT+3, GT1+7
    ^PS(55 - [#55] START+16, START+17, NVANEW+2, BUILD+1
    ^PSDRUG - [#50] START+7, START+10, START+12, NVANEW+10, NVANEW+12, NVANEW+13, NVAOLD+3, NVAOLD+5, NVAOLD+6, GET+5
    GT1+1, GT1+2, GT1+3, GT1+4
    ^PSDRUG("ASP" START+7
    ^PSRX - [#52] BUILD+1, GET+1, GET+2, GET+3, GET+4, BARCBARC+2
    ^TMP("PS" START+4

    Label References

    Name Line Occurrences
    BARC GT1+11
    BUILD START+1
    END STARTSTART+1
    EOJ START+1, END
    FSTA GET+14, GET+16, STAT+2
    GET BUILD+1
    GETX GET+3, GET+5, GT1
    GT1 GET+12
    INIT START+1
    INITX INIT+1, INIT+2, INIT+3
    NVANEW START+17
    NVAOLD START+18
    START INPAT+2
    STAT GET+17

    Naked Globals

    Name Field # of Occurrence
    ^("I" START+7, GT1+1
    ^("ND" START+12, NVANEW+13, NVAOLD+6, GT1+2
    ^(0 GET+13, GT1+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CLOZPT GT1+4*, GT1+5, GT1+6!
    COMM GET+10*!
    COMPLEX START+15~
    CONJ START+15~, NVANEW+8*, NVANEW+12
    DA GET+8~*, GET+9!, FSTA+1~*!
    DD START+15~, NVANEW+2*, NVANEW+3, NVANEW+11
    DDH INPAT+3!
    DDX START+15~, NVANEW+3*, NVANEW+4, NVANEW+5, NVANEW+6, NVANEW+7, NVANEW+8
    DIC GET+8~!
    DIE GET+8~*!, FSTA+1~*!
    DOSE START+15~, NVANEW+4*, NVANEW+12
    DR GET+8~*!, FSTA+1~*!
    DRG START+3*, START+4, START+10*, START+11*, START+12, START+13, NVANEW+10*, NVANEW+11*, NVANEW+12, NVANEW+13
    NVAOLD+3*, NVAOLD+4*, NVAOLD+5, NVAOLD+6, EOJ!, INPAT+3!
    DT STARTSTART+7, INIT+5, GET+7, GET+11, GT1+1, INPAT+2
    DURA START+15~, NVANEW+7*, NVANEW+12
    >> I START+3*
    INPAT INPAT+2*, INPAT+3!
    MEDR START+15~, NVANEW+6*
    >> NOEXP GT1
    NON START+16*, NVANEW+9, NVANEW+12, NVAOLD+2, NVAOLD+5, NVAOLD+6, EOJ!
    NVA START+16*, START+17, NVANEW+2, NVANEW+3, NVANEW+11, NVANEW+12, NVAOLD+4, NVAOLD+5, EOJ!
    ORD START~, START+5*, START+13, EOJ!
    PEN START+5*, START+8, START+11, START+12, START+13, EOJ!
    PHARMST GET+10*!
    PSCNT INPAT+3!
    PSOBEXDA GET+8~*, GET+10!
    PSOBUILD EOJ!
    PSOBUILD("COUNT" INIT+1*, BUILDXBARC+3*, BARC+4*
    PSOBUILD("RX" BUILD+1*, GET+1, GET+2, GET+3, GET+4, GET+8, GET+13, GET+15, GET+16, BARC
    BARC+4, BARC+5, STATFSTA+1
    PSOCT INPAT+3!
    PSODD START+5*, START+6, START+8*, START+10, START+12, START+13!, NVANEW+9*, NVANEW+10, NVANEW+12, NVANEW+13
    NVAOLD+2*, NVAOLD+3, NVAOLD+6, INPAT+3!
    PSODFN STARTSTART+5, START+16, START+17, NVANEW+2, NVANEW+3, BUILD+1, INPAT~, INPAT+3!
    PSODRG GET+5*, GT1+1, GT1+2, GT1+3, GT1+4, EOJ!
    PSODRUG0 GET+5*, GT1+5, GT1+6, BARC+2, EOJ!
    PSODRUGN BARC+2*, BARC+3, BARC+4, BARC+5, EOJ!
    PSODTCUT INIT+1, INIT+5*, BUILD+1, INPAT+2*, INPAT+3!
    PSODYS GET+5*, BARC+4, BARC+5, EOJ!
    PSOEXPDT BUILD+1*, GET+7, GET+10, GET+11, EOJ!
    PSOJ BARC*, EOJ!
    PSOLC GT1+9*, EOJ!
    PSOMED INIT+1!
    PSONDF GT1+2*, BARC+4, BARC+5, EOJ!
    PSOOI START+5*, START+6, START+7, START+10, START+13!, NVANEW+9*, NVANEW+10, NVAOLD+2*, NVAOLD+3, INPAT+3!
    PSOPAR GT1+1, INPAT+3!
    PSOQFLG START+1, INIT+1*, INIT+2*, INIT+3*, EOJ!
    PSORFRM BARC*, BARC+1*, BARC+4, BARC+5, EOJ!
    >> PSORX("BAR CO DE" , GT1+11
    PSORX0 GET+2*, GET+5, GET+7, GET+8*, GT1+7, GT1+9, BARCBARC+2, FSTA*, EOJ!
    PSORX2 GET+3*, GET+4, EOJ!
    PSORX3 GET+4*, EOJ!
    PSOSD START!, START+13*, NVANEW+14*, NVAOLD+7*, INIT+1!, BUILDX*, INPAT+3!
    PSOSD( START+3*!, START+4*, BARC+2, BARC+3, BARC+4*, BARC+5*
    PSOSD("PENDING" START+11, START+12*, START+13*
    PSOSD("ZNONVA" NVANEW+11, NVANEW+12*, NVANEW+13*, NVAOLD+4, NVAOLD+5*, NVAOLD+6*
    PSOST0 GET+2*, GET+3, GET+7, GET+8*, GET+11*, GET+12, GET+14*, GET+16*, GET+17, GT1
    GT1+8, GT1+10, GT1+11, GT1+12, BARC+2, BARC+4, BARC+5, STAT+1*, STAT+2, FSTA
    FSTA+1, EOJ!
    PSOSTA INPAT+3!
    PSOSTF GET+2*, GT1+1*, GT1+5*, GT1+10*, BARC+1*, BARC+4, BARC+5, EOJ!
    PSOSTN GET+2*, GT1+1*, GT1+3*, GT1+5*, GT1+6*, GT1+7*, GT1+8*, GT1+9*, GT1+11*, GT1+12*
    BARC+4, BARC+5, EOJ!
    PSOVACL GET+5*, BARC+4, BARC+5, EOJ!
    PSOX INIT+3*, INITX!, EOJ!
    SCHD START+15~, NVANEW+5*, NVANEW+12
    >> STA START+2*, START+3, START+4
    STAT GET+10*!
    STP INPAT+3!
    STR INPAT+3!
    U NVAOLD+4, INIT+1*
    X INIT+5, INITX!, STAT~*, STAT+1, INPAT+2
    X1 INIT+5*, INITX!, INPAT+2*
    X2 INIT+5*, INITX!, INPAT+2*
    ZPSDC START+6~*, START+7*, START+8, START+9!
    ZPSDC( START+7*
    ZPSDC(1 START+8
    ZPSI START+6~*, START+7*, START+9!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All