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

Package: Pharmacy Data Management

Routine: PSSUTLA1


Information

PSSUTLA1 ;BHAM ISC/RTR-PSS utility routine ;08/21/00

Source Information

Source file <PSSUTLA1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 INP^VADPT  $$SITE^VASITE  
VA FileMan 2 EN^DDIOL  $$GET1^DIQ  

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

Package Total Caller Graph
Pharmacy Data Management 5 PSSOPKI1  PSSORPH  PSSORPH1  PSSORUTL  PSSORUTZ  
Order Entry Results Reporting 4 ORBCMA1  ORCDPS1  ORDEA  ORPRPM  
Outpatient Pharmacy 2 PSOORFI5  PSOORFI6  
Virtual Patient Record 1 VPREVNT  

Entry Points

Name Comments DBIA/ICR reference
EN3(PSSBINTR,PSSBLGTH) ;
START ;
ADD ;
DEA(PSSDIENM) ;Return DEA Special Handling for CPRS Dose Call
DSET ;
HELP ;
HELP1 ;
HELPADD ;
PRICE() ;Return price per dose for CPRS Dose call
PRICEQ ;
OIDEA(PSSXOI,PSSXOIP) ;
  • ICR #3373
    • Status: Active
    • Usage: Controlled Subscription
    OIDQ ;
    LEAD ;Leading zeros, CPRS Dosage call
    LEADP ;Leading zeros pharmacy call
    DUP ;delete str/unit if duplicate local doses with strength are found
    PLACER(PSSPDFN,PSSPIEN) ;Return CPRS order number from Pharmacy order
  • ICR #3373
    • Status: Active
    • Usage: Controlled Subscription
    LOC(PSSPDFN,PSSPIEN) ;Return Location from Pharmacy order
  • ICR #3373
    • Status: Active
    • Usage: Controlled Subscription
    LOCWA() ;Return ward
    LOCHL(PSSCLN) ;Return hospital location file #44
    LOCDI(PSSDIV) ;Return division file #40.8
    LOCIN() ;Return institution file #4

    External References

    Name Field # of Occurrence
    EN^DDIOL HELP1+8
    $$GET1^DIQ LOC+23
    INP^VADPT LOCWA+2
    $$SITE^VASITE LOCIN+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(52.41 - [#52.41] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] LOCDI+1
    ^DIC(42 - [#42] LOC+12, LOC+13
    ^PS(50.7 - [#50.7] EN3+5
    ^PS(51 - [#51] EN3+8, HELP+5
    ^PS(52.41 - [#52.41] PLACER+11, LOC+21, LOC+23
    ^PS(53.1 - [#53.1] PLACER+10, LOC+8, LOC+15
    ^PS(55 - [#55] PLACER+8, PLACER+12, LOC+7, LOC+9, LOC+14, LOC+19
    ^PSDRUG - [#50] DEA+6, PRICE+5, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14
    ^PSDRUG("ASP" OIDEA+9
    ^PSRX - [#52] PLACER+9, LOC+20
    ^SC - [#44] LOCHL+1

    Label References

    Name Line Occurrences
    $$LOCDI LOC+16
    $$LOCHL LOC+10, LOC+12, LOC+22
    $$LOCIN LOC+3, LOC+17, LOC+24, LOC+25
    $$LOCWA LOC+11
    ADD EN3+7
    DSET DEA+7, DEA+8
    HELP1 HELP+3
    HELPADD HELP+4
    OIDQ OIDEA+6, OIDEA+7
    PRICEQ PRICE+6
    START EN3+6

    Naked Globals

    Name Field # of Occurrence
    ^("I" OIDEA+10
    ^(2 OIDEA+12
    ^(9 EN3+8, HELP+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BLIM EN3+3~, START+2, START+4*
    BVAR EN3+3~, START+1*, START+2*, START+4, START+5*, START+6
    BVAR1 EN3+3~, START+1*, START+2, START+3*, START+5
    CNT EN3+3~, START+2*, START+3
    CNTZ EN3+3~, EN3+6*, START+8*, ADD+1, ADD+2*
    >> DLOOP PRICE+4, PRICE+5
    DT OIDEA+10
    FFF EN3+3~, START+2*, START+3
    III EN3+3~, START+1*, START+2*, START+6
    NNN EN3+3~, START+2*
    PCT HELP+2~, HELP1+2*, HELP1+3
    PISIG EN3+3~
    PISIG( START+2, START+3, ADD+1*, ADD+2*
    PISIG(1 EN3+6*
    PNNN HELP+2~, HELP1+2*
    PSSBB LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18
    PSSBB1 LEADP+1~, LEADP+5*, LEADP+6, LEADP+8*, LEADP+9, LEADP+14*, LEADP+15, LEADP+17*, LEADP+18
    PSSBBD LEADP+1~, LEADP+4*, LEADP+5, LEADP+7*, LEADP+8, LEADP+13*, LEADP+14, LEADP+16*, LEADP+17
    >> PSSBCM PRICE+7
    PSSBINTR EN3~, EN3+4, EN3+5
    PSSBK LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22
    PSSBK1 LEAD+1~, LEAD+6*, LEAD+7, LEAD+10*, LEAD+11, LEAD+17*, LEAD+18, LEAD+21*, LEAD+22
    PSSBKD LEAD+1~, LEAD+5*, LEAD+6, LEAD+9*, LEAD+10, LEAD+16*, LEAD+17, LEAD+20*, LEAD+21
    PSSBLGTH EN3~, EN3+4, START+2
    PSSBLIM HELP+2~, HELP1+2, HELP1+4*
    PSSBSIG EN3+3!, START+9!
    PSSBSIG( START+2*, START+6*, START+8
    PSSBSIG(1 START+7*
    PSSBSIG(2 START+7!
    PSSBVAR HELP+2~, HELP1+1*, HELP1+2*, HELP1+4, HELP1+5*, HELP1+6
    PSSBVAR1 HELP+2~, HELP1+1*, HELP1+2, HELP1+3*, HELP1+5
    PSSCLN LOCHL~, LOCHL+1, LOCHL+2
    PSSCLNN LOCHL+1~*, LOCHL+2
    PSSCTX HELP+2~, HELP+3*, HELPADD+1, HELPADD+2*
    PSSDEAX DEA+5~, DEA+6*, DEA+7, DEA+8
    PSSDEAXV DEA+5~, DEA+7*, DEA+8*, DEA+9*, DSET+1
    PSSDIENM DEA~, DEA+4, DEA+6, DSET+1
    PSSDIV LOCDI~, LOCDI+1, LOCDI+2
    PSSDIVN LOCDI+1~*, LOCDI+2
    PSSERR LOC+4~
    PSSFFF HELP+2~, HELP1+2*, HELP1+3
    >> PSSHLF( DSET+1
    PSSHLOC LOC+4~, LOC+7*, LOC+8*, LOC+9*, LOC+10, LOC+12*, LOC+19*, LOC+20*, LOC+21*, LOC+22
    PSSIG HELP+2~
    PSSIG( HELP1+2, HELP1+3, HELPADD+1*, HELPADD+2*
    PSSIG(1 HELP+3*
    PSSIII HELP+2~, HELP1+1*, HELP1+2*, HELP1+6
    >> PSSLD LEAD+2*, LEAD+3, LEAD+4, LEAD+5, LEAD+7, LEAD+8, LEAD+9, LEAD+11, LEAD+12, LEAD+13
    LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22, LEAD+23*, LEAD+24
    >> PSSLD1 LEAD+13*, LEAD+14, LEAD+15, LEAD+16, LEAD+18, LEAD+19, LEAD+20, LEAD+22
    PSSLOC PLACER+5~, PLACER+6*, PLACER+7, PLACER+8
    PSSLPX HELP+2~, HELP1+8*
    PSSLXA DUP+1~
    PSSLXA( DUP+7*, DUP+8
    PSSLXFL DUP+1~, DUP+2*, DUP+3, DUP+8*, DUP+9
    PSSLXL DUP+1~, DUP+3*, DUP+4
    PSSLXLD DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8
    PSSLXMED DUP+1~, DUP+5*, DUP+6, DUP+7, DUP+8
    PSSLXND DUP+1~, DUP+4*, DUP+5
    PSSLXQ DUP+1~, DUP+9*
    PSSLXSTR DUP+1~, DUP+4*, DUP+5*, DUP+6, DUP+7, DUP+8
    PSSLXX DUP+1~, DUP+8*
    >> PSSMD LEADP+2*, LEADP+3, LEADP+4, LEADP+6, LEADP+7, LEADP+9, LEADP+10, LEADP+11, LEADP+12, LEADP+13
    LEADP+15, LEADP+16, LEADP+18, LEADP+19*, LEADP+20
    >> PSSMD1 LEADP+11*, LEADP+12, LEADP+13, LEADP+15, LEADP+16, LEADP+18
    >> PSSMDN LEADP+3*, LEADP+12*
    PSSPAK PLACER+5~*, PLACER+6, PLACER+8, PLACER+9, PLACER+10, PLACER+11, LOC+4~, LOC+5*, LOC+6, LOC+7
    , LOC+8, LOC+9, LOC+14, LOC+15, LOC+18, LOC+19, LOC+20, LOC+21, LOC+23
    PSSPDFN PLACER~, PLACER+3, PLACER+8, PLACER+12, LOC~, LOC+3, LOC+7, LOC+9, LOC+14, LOC+19
    PSSPIEN PLACER~, PLACER+4, PLACER+5, PLACER+8, PLACER+9, PLACER+10, PLACER+11, PLACER+12, LOC~, LOC+3
    , LOC+5, LOC+7, LOC+8, LOC+9, LOC+12, LOC+14, LOC+15, LOC+19, LOC+20, LOC+21
    , LOC+23
    PSSPKLX OIDEA+5~, OIDEA+8*, OIDEA+11, OIDEA+12
    PSSPRICE PRICE+3~, PRICE+5*, PRICE+6, PRICE+7
    PSSPRQ PRICE+3~, PRICE+6*, PRICE+7*, PRICEQ+1*, PRICEQ+2
    PSSRLIN LOC+4~, LOC+23*
    PSSRLINN LOC+4~, LOC+23*
    PSSROOM LOC+4~, LOC+14*, LOC+15*, LOC+16
    PSSRSLT LOC+4~, LOC+5*, LOC+6, LOC+10*, LOC+12*, LOC+13*, LOC+16*, LOC+17*, LOC+18, LOC+22*
    , LOC+23*, LOC+24*
    PSSSIG HELP+2~
    PSSSIG( HELP1+2*, HELP1+6*, HELP1+8
    PSSSIG(1 HELP1+7*
    PSSSIG(2 HELP1+7!
    >> PSSUDOS PRICE+6
    PSSWRD LOC+4~, LOC+11*, LOC+12, LOC+13
    PSSWRDN LOC+4~, LOC+13*
    >> PSSX( LEAD+2, LEAD+3*, LEAD+4*, LEAD+5, LEAD+7*, LEAD+8*, LEAD+9, LEAD+11*, LEAD+12, LEAD+13
    LEAD+14*, LEAD+15*, LEAD+16, LEAD+18*, LEAD+19*, LEAD+20, LEAD+22*, LEADP+2, LEADP+3*, LEADP+4
    LEADP+6*, LEADP+7, LEADP+9*, LEADP+10, LEADP+11, LEADP+12*, LEADP+13, LEADP+15*, LEADP+16, LEADP+18*
    DUP+3, DUP+4
    >> PSSX("DD" DSET+1*, LEAD+23, LEAD+24*, LEADP+19, LEADP+20*, DUP+5, DUP+9*
    >> PSSX("PI" START+8*
    PSSXNODD OIDEA+5~, OIDEA+6*, OIDEA+13*, OIDQ+1
    PSSXOI OIDEA~, OIDEA+7, OIDEA+9
    PSSXOIP OIDEA~, OIDEA+6, OIDEA+7, OIDEA+8
    PSSXOLP OIDEA+5~, OIDEA+9*, OIDEA+10, OIDEA+11, OIDEA+12, OIDEA+14
    PSSXOLPD OIDEA+5~, OIDEA+6*, OIDEA+9, OIDEA+15*, OIDEA+16*, OIDQ+1*, OIDQ+2
    PSSXOLPX OIDEA+5~, OIDEA+14*, OIDEA+15, OIDEA+16
    PSSYX HELP+2~, HELP+5*
    PSSZ0 HELP+2~, HELP+3*, HELP+5
    PSSZ1 HELP+2~, HELP+3*, HELP+4, HELP+5*, HELPADD+1, HELPADD+2
    VAERR LOCWA+1~
    VAHOW LOCWA+1~
    VAIN LOCWA+1~
    VAIN(4 LOCWA+3
    VAINDT LOCWA+1~
    VAROOT LOCWA+1~
    X EN3+3~, EN3+5*, EN3+6, EN3+7, EN3+8, HELP+1, HELP+3, HELP+4, HELP+5
    Y EN3+3~, EN3+8*
    Z0 EN3+3~, EN3+6*, EN3+8
    Z1 EN3+3~, EN3+6*, EN3+7, EN3+8*, ADD+1, ADD+2
    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