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

Package: Inpatient Medications

Routine: PSJBCMA5


Information

PSJBCMA5 ;BIR/JCH - RETRIEVE SPECIAL INSTRUCTIONS/OTHER PRINT INFO ; 1/9/12 11:12am

Source Information

Source file <PSJBCMA5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 4 TXT^PSGMUTL  (MVOPIAL,OPIWARN)^PSJBCMA1  (FILEOPI,FILESI)^PSJBCMA2  ENSI^PSJUTL  
VA FileMan 3 ^DIE  ^DIR  EN^DIWE  

Caller Graph

Caller Graph Total: 49

Package Total Caller Graph
Inpatient Medications 38 PSGAL5  PSGMIV  PSGOE41  PSGOE7  PSGOE81  PSGOE91  PSGOEE  PSGOEF1  
PSGOETO  PSGOTR  PSGVW  PSIVEDT1  PSIVORAL  PSIVORC2  PSIVORFA  PSIVORFB  
PSJ LM FINISH  PSJ LM NEW ORDER  PSJ LM NEW ORDER FROM PROFILE  PSJ LM NEW SELECT ORDER  PSJ LM SELECT ORDER  PSJBCMA2  PSJCLOR2  PSJCOM  
PSJHL3  PSJHL7  PSJHLU  PSJI LM FINISH  PSJI LM VERIFY  PSJINVW  PSJLIVFD  PSJLIVMD  
PSJLMPRU  PSJLMUDE  PSJO  PSJOE0  PSJU LM VERIFY  PSJUTL  
Barcode Medication Administration 10 PSBOCE  PSBOCI  PSBOCM  PSBOCP  PSBODL  PSBODO  PSBOIV  PSBOMH2  
PSBPRN  PSBVDLU1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
GETSIOPI(DFN,ON,BCMA) ; Get appropriate field depending on order type
; DFN - Patient IEN
; ON - Inpatient Order number
; BCMA - Flag indicating called from BCMA - return data in ^TMP("PSJBCMA",$J
  • ICR #5763
    • Status: Pending
    • Usage: Controlled Subscription
    MOVETMP(DFN,ON,OTYP) ; Move text from PS(53.45 to ^TMP for BCMA
    GETSI(DFN,ON,BC) ; Get Special Instructions for Unit Dose orders
    GETOPI(DFN,ON,BC) ; Get Other Print Info for IV orders
    EDITSI(DFN,PSJORD) ; Edit Special Instructions in ^PS(53.45 via Word Processing
    EDITOPI(PSJDPT,PSJORD) ; Edit Other Print Info in ^PS(53.45 via Word Processing
    OPIWARN(AFTER) ; Warn user about OPI not printing on IV labels
    FILESI(DFN,PSJORD) ; File Special instructions from ^PS(53.45 to UD order
    FILEOPI(DFN,ORDER) ; File Other Print Info from ^PS(53.45 to IV order
    DIFFSI(DFN,PSJORD) ; Compare Special Instructions, pre and post edit
    DIFFOPI(DFN,PSJORD) ; Compare Other Print Info, pre and post edit
    DIFFAR(ARRAY1,ARRAY2) ; Compare two text arrays
    MVOPI(DFN,PSJI1,PSJI2) ; Move OPI from Non-Verified order to Active order during Verify
    MVOPIAL(DFN,PSJI1,PSJI2) ; Move Other Print Info Activity log entries from NV order to Active order, during Verification
    KILL(USR) ; Clean up ^PS(53.45
    PAUSE(DEF) ;
    DONE(DEF) ; -- Done editing?

    External References

    Name Field # of Occurrence
    ^DIE EDITSI+6, EDITOPI+7
    ^DIR PAUSE+1, DONE+4
    EN^DIWE EDITSI+7, EDITOPI+8
    TXT^PSGMUTL GETSI+11, GETSI+22, GETOPI+10, GETOPI+19
    MVOPIAL^PSJBCMA1 MVOPIAL+1
    OPIWARN^PSJBCMA1 OPIWARN+1
    FILEOPI^PSJBCMA2 FILEOPI+2
    FILESI^PSJBCMA2 FILESI+2
    ENSI^PSJUTL EDITSI+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!,$C(7),"SPECIAL INSTRUCTIONS must not contain embedded uparrow ""^"". "
    • Line Location: EDITSI+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDITSI+11
    Function Call: WRITE
    • Prompt: !!!,$C(7),"OTHER PRINT INFO must not contain embedded uparrow ""^""."
    • Line Location: EDITOPI+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: EDITOPI+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Routine Call
    • DIE
    • Line Location:
      • EDITSI+6
      • EDITOPI+7
    Routine Call
    • DIR
    • Line Location:
      • PAUSE+1
      • DONE+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(53.45 - [#53.45] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(53.1 - [#53.1] GETSIOPI+10, GETSIOPI+13, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+13, GETOPI+6, GETOPI+7, GETOPI+8
    , GETOPI+9, GETOPI+12, DIFFSI+7, DIFFSI+8, DIFFOPI+7, DIFFOPI+8
    ^PS(53.45 - [#53.45] MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5!, GETSI+4, GETSI+5, GETSI+8*, GETSI+9*, GETSI+11*, GETSI+12*
    , GETSI+13*, GETSI+14, GETSI+15, GETSI+19*, GETSI+20*, GETSI+22*, GETSI+23*, GETSI+24*, GETOPI+4, GETOPI+5
    , GETOPI+7*, GETOPI+8*, GETOPI+10*, GETOPI+11*, GETOPI+12*, GETOPI+14, GETOPI+16*, GETOPI+17*, GETOPI+19*, GETOPI+20*
    , GETOPI+21*, GETOPI+22!, GETOPI+23, EDITSI+2, EDITSI+3, EDITSI+8, EDITSI+9, EDITSI+11!*, EDITSI+12!*, EDITSI+13
    , EDITOPI+2, EDITOPI+9, EDITOPI+10!*, EDITOPI+11, EDITOPI+13!*, EDITOPI+15, EDITOPI+16, EDITOPI+18, EDITOPI+19, FILEOPI+3!
    , DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+2, DIFFOPI+4, DIFFOPI+5, DIFFOPI+7, DIFFOPI+8
    , KILL+1!
    ^PS(55 - [#55] GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21
    , DIFFSI+4, DIFFSI+5, DIFFOPI+4, DIFFOPI+5
    ^TMP("PSJBCMA5" GETSIOPI+6!, GETSIOPI+8, MOVETMP+2!, MOVETMP+3*, MOVETMP+4*
    ^TMP("PSJTMPSI" EDITSI+3!*, EDITSI+11, EDITSI+14!, EDITOPI+2!*, EDITOPI+13, EDITOPI+21!

    Label References

    Name Line Occurrences
    $$DONE EDITSI+11, EDITOPI+13
    $$GETOPI GETSIOPI+11, GETSIOPI+13
    $$GETSI GETSIOPI+12, GETSIOPI+14, EDITSI+2
    FILEOPI MVOPI+2
    GETOPI MVOPI+2
    MOVETMP GETSIOPI+11, GETSIOPI+12
    OPIWARN EDITOPI+5, EDITOPI+15
    PAUSE EDITSI+10, EDITOPI+12

    Naked Globals

    Name Field # of Occurrence
    ^( EDITSI+9, EDITOPI+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AFTER OPIWARN~, OPIWARN+1
    ARRAY1 DIFFAR~
    ARRAY1( DIFFAR+2
    ARRAY2 DIFFAR~
    ARRAY2( DIFFAR+2
    BC GETSI~, GETSI+11, GETSI+22, GETOPI~, GETOPI+10, GETOPI+19
    BCMA GETSIOPI~, GETSIOPI+7, GETSIOPI+8
    DA EDITSI+5~, EDITSI+6*, EDITSI+7*, EDITOPI+4~, EDITOPI+7*, EDITOPI+8*, FILESI+1~
    DEF PAUSE~, PAUSE+1, DONE~, DONE+2, DONE+3
    DFN GETSIOPI~, GETSIOPI+5, GETSIOPI+6, GETSIOPI+8, GETSIOPI+11, GETSIOPI+12, GETSIOPI+13, GETSIOPI+14, MOVETMP~, MOVETMP+3
    , MOVETMP+4, GETSI~, GETSI+2, GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI~, GETOPI+2
    , GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21, EDITSI~, EDITSI+2, FILESI~, FILESI+2, FILEOPI~
    , FILEOPI+2, DIFFSI~, DIFFSI+4, DIFFSI+5, DIFFOPI~, DIFFOPI+4, DIFFOPI+5, MVOPI~, MVOPI+1, MVOPI+2
    , MVOPIAL~, MVOPIAL+1
    DIC EDITSI+1~*, EDITSI+7*, EDITOPI+1~*, EDITOPI+8*
    DIE EDITSI+5~, EDITSI+6*, EDITOPI+4~, EDITOPI+7*, FILESI+1~
    DIFF DIFFSI+1~*, DIFFSI+2, DIFFSI+4*, DIFFSI+5*, DIFFSI+7*, DIFFSI+8*, DIFFSI+9, DIFFOPI+1~*, DIFFOPI+2, DIFFOPI+4*
    , DIFFOPI+5*, DIFFOPI+7*, DIFFOPI+8*, DIFFOPI+9, DIFFAR+1~*, DIFFAR+2*, DIFFAR+3
    DIR EDITSI+5~, EDITOPI+4~*, PAUSE+1!, DONE+1~
    DIR("?" PAUSE+1*, DONE+3*
    DIR("A" PAUSE+1*, DONE+2*
    DIR("B" DONE+2*
    DIR(0 PAUSE+1*, DONE+2*
    DIWESUB EDITSI+1~*, EDITSI+5*, EDITOPI+1~*, EDITOPI+4*
    DR EDITSI+5~, EDITSI+6*, EDITSI+7*, EDITOPI+7*, EDITOPI+8*
    I EDITSI+1~, EDITOPI+1~
    II EDITSI+5~, EDITSI+9*, EDITOPI+4~, EDITOPI+11*
    L EDITSI+2*, EDITSI+5~, EDITOPI+4~
    LN MOVETMP+1~, MOVETMP+3*, MOVETMP+4, GETSI+9*, GETSI+20*, GETOPI+1~, GETOPI+8*, GETOPI+17*, FILESI+1~, FILEOPI+1~
    , DIFFSI+1~, DIFFSI+2*, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+1~, DIFFOPI+2*, DIFFOPI+4, DIFFOPI+5
    , DIFFOPI+7, DIFFOPI+8, DIFFAR+1~, DIFFAR+2*
    LNCNT FILESI+1~, FILEOPI+1~
    MARX GETSI+10~, GETSI+21~, GETOPI+9~, GETOPI+18~
    MARX( GETSI+12, GETSI+23, GETOPI+11, GETOPI+20
    MARX(" " GETSI+11, GETSI+22, GETOPI+10, GETOPI+19
    ND MOVETMP+1~*, MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5
    NTNT DIFFSI+7~
    NTOT DIFFSI+4~*, DIFFSI+7*, DIFFOPI+4~*, DIFFOPI+7~*, DIFFAR+1~*
    OLDOPI GETOPI+9~*, GETOPI+10, GETOPI+18~*, GETOPI+19
    OLDSI GETSI+10~*, GETSI+11, GETSI+21~*, GETSI+22
    ON GETSIOPI~, GETSIOPI+5, GETSIOPI+6, GETSIOPI+8, GETSIOPI+10, GETSIOPI+11, GETSIOPI+12, GETSIOPI+13, GETSIOPI+14, MOVETMP~
    , MOVETMP+3, MOVETMP+4, GETSI~, GETSI+2, GETSI+4, GETSI+7, GETSI+8, GETSI+9, GETSI+10, GETSI+13
    , GETSI+14, GETSI+18, GETSI+19, GETSI+20, GETSI+21, GETSI+24, GETOPI~, GETOPI+2, GETOPI+4, GETOPI+6
    , GETOPI+7, GETOPI+8, GETOPI+9, GETOPI+12, GETOPI+13, GETOPI+15, GETOPI+16, GETOPI+17, GETOPI+18, GETOPI+21
    OPIMSG EDITOPI+17~*
    ORDER FILEOPI~, FILEOPI+1, FILEOPI+2
    OTOT DIFFSI+4~*, DIFFSI+7~*, DIFFOPI+4~*, DIFFOPI+7~*, DIFFAR+1~*
    OTYP MOVETMP~, MOVETMP+1
    >> P("OPI" EDITOPI+15*, EDITOPI+16*, EDITOPI+20*
    >> PSGOEENO GETSI+6, GETSI+17
    >> PSGOORD GETSI+6
    PSJDPT EDITOPI~
    PSJI1 MVOPI~, MVOPI+1, MVOPI+2, MVOPIAL~, MVOPIAL+1
    PSJI2 MVOPI~, MVOPI+1, MVOPI+2, MVOPIAL~, MVOPIAL+1
    PSJII EDITSI+1~, EDITSI+4*, EDITSI+6, EDITSI+7, EDITSI+10, EDITSI+11, EDITOPI+3*, EDITOPI+5, EDITOPI+7, EDITOPI+8
    , EDITOPI+12, EDITOPI+13
    PSJORD GETSI+6, EDITSI~, EDITSI+2, EDITOPI~, FILESI~, FILESI+2, FILEOPI+1~*, DIFFSI~, DIFFSI+3, DIFFSI+4
    , DIFFSI+5, DIFFSI+6, DIFFSI+7, DIFFSI+8, DIFFOPI~, DIFFOPI+3, DIFFOPI+4, DIFFOPI+5, DIFFOPI+6, DIFFOPI+7
    , DIFFOPI+8
    PSJOVRMX EDITOPI+17~, EDITOPI+18*, EDITOPI+19*, EDITOPI+20, FILESI+1~
    PSJSYSP GETSIOPI+7~*, GETSIOPI+9~*, MOVETMP+2, MOVETMP+3, MOVETMP+4, MOVETMP+5, GETSI+3~*, GETSI+4, GETSI+5, GETSI+8
    , GETSI+9, GETSI+11, GETSI+12, GETSI+13, GETSI+14, GETSI+15, GETSI+19, GETSI+20, GETSI+22, GETSI+23
    , GETSI+24, GETOPI+3~*, GETOPI+4, GETOPI+5, GETOPI+7, GETOPI+8, GETOPI+10, GETOPI+11, GETOPI+12, GETOPI+14
    , GETOPI+16, GETOPI+17, GETOPI+19, GETOPI+20, GETOPI+21, GETOPI+22, GETOPI+23, EDITSI+1, EDITSI+2, EDITSI+3
    , EDITSI+6, EDITSI+7, EDITSI+8, EDITSI+9, EDITSI+11, EDITSI+12, EDITSI+13, EDITOPI+1, EDITOPI+2, EDITOPI+7
    , EDITOPI+8, EDITOPI+9, EDITOPI+10, EDITOPI+11, EDITOPI+13, EDITOPI+15, EDITOPI+16, EDITOPI+18, EDITOPI+19, FILEOPI+3
    , DIFFSI+2, DIFFSI+4, DIFFSI+5, DIFFSI+7, DIFFSI+8, DIFFOPI+2, DIFFOPI+4, DIFFOPI+5, DIFFOPI+7, DIFFOPI+8
    >> PSJSYSP0 GETSI+16
    PSJTMPTX EDITOPI+17~, EDITOPI+18*, EDITOPI+19*, EDITOPI+20, FILESI+1~
    PSJTXT GETSI+1~, GETOPI+1~
    PSJTXTLN EDITSI+1~, EDITSI+5*, EDITSI+8*, EDITSI+12, EDITSI+13*, EDITSI+15, EDITOPI+1~, EDITOPI+4*, EDITOPI+6*, EDITOPI+9*
    , EDITOPI+10, EDITOPI+16, EDITOPI+22
    PSJVALID EDITSI+1~*, EDITSI+4, EDITSI+5*, EDITSI+9*, EDITSI+10, EDITSI+11*, EDITSI+12, EDITOPI+1~*, EDITOPI+3, EDITOPI+4*
    , EDITOPI+11*, EDITOPI+12, EDITOPI+13*, EDITOPI+14
    PSJVERI GETSI+16~*, GETSI+17
    TMPLIN EDITOPI+18*, EDITOPI+19, FILESI+1~
    TMPLN EDITSI+5~, EDITSI+9*, EDITOPI+4~, EDITOPI+11*
    TXT EDITOPI+17~
    TXTCNT GETSI+10~, GETSI+11*, GETSI+21~, GETSI+22*, GETOPI+9~, GETOPI+10*, GETOPI+18~, GETOPI+19*
    TXTLN GETSI+1~, GETSI+12*, GETSI+23*, GETOPI+11*, GETOPI+20*
    USR KILL~, KILL+1
    X FILESI+1~, DONE+1~
    Y FILESI+1~, DONE+1~, DONE+5
    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