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 |  Local Variables |  All
Print Page as PDF
Routine: PSBIHS3

Package: Barcode Medication Administration

Routine: PSBIHS3


Information

PSBIHS3 ;KF/VAOIT PSB DRUG/PHAM ORDERABLE ITEM/IV ADD/SOL

Source Information

Source file <PSBIHS3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 6 (,DD)^%DT  NOW^%DTC  WAIT^DICD  YN^DICN  UPDATE^DIE  $$GET1^DIQ  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Barcode Medication Administration 1 PSBIHS CORRECT DRUG POINTERS  

Entry Points

Name Comments DBIA/ICR reference
NEW
HEAD ;
EN ;
REINACT ;RENAME ALL INACTIVE DRUGS TO ZZ/zz THEM
TAS ;TASK IT OR NOT

External References

Name Field # of Occurrence
^%DT REINACT+5
DD^%DT HEAD+2
NOW^%DTC HEAD+2
^%ZIS TAS+2
HOME^%ZIS TAS+18
^%ZISC TAS+10
^%ZTLOAD TAS+17
WAIT^DICD TAS+9, REINACT+7, REINACT+20
YN^DICN REINACT+18
UPDATE^DIE REINACT+21
$$GET1^DIQ EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Hello "_$P($$GET1^DIQ(200,DUZ,.01,"E"),",",2)_" this report looks at the Following Files for 'Correct Drug Pointers'"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?10,"Drug File (50) --->Pharmacy Orderble Item (50.7)"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?10," ^ ^ | |"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,?10," | | | |"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,?10," | | | |"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?10," | -------IV Additives (52.6) |"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?10," -------------------------------IV Solution (52.7)"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: TAS+2
Function Call: WRITE
  • Prompt: !,"Nothing to Report"
  • Line Location: NEW+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"Drug File Pharmacy Orderable IV Additives/Solution Checker"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?60,$E(Y,1,18),!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF,!,"Searching..."
  • Line Location: REINACT+7
Function Call: WRITE
  • Prompt: !!,"NONE FOUND"
  • Line Location: REINACT+17
Function Call: WRITE
  • Prompt: !,"Would like me to ZZ the "_PSBCNT_" INACTIVE Drugs?"
  • Line Location: REINACT+18
Function Call: WRITE
  • Prompt: !,"BYE I AM DONE NOW!"
  • Line Location: REINACT+22
Routine Call
  • %ZIS
  • Line Location:
    • TAS+18
Routine Call
  • %ZIS
  • Line Location:
    • TAS+2
Routine Call
  • DIE
  • Line Location:
    • REINACT+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.7 - [#50.7] NEW+30, NEW+40
^PS(52.6 - [#52.6] NEW+14, NEW+16
^PS(52.7 - [#52.7] NEW+6, NEW+7, NEW+8, NEW+17
^PSDRUG - [#50] NEW+2, NEW+3, NEW+4, NEW+29, NEW+31, NEW+39, NEW+41, REINACT+8, REINACT+9, REINACT+11
^TMP("$J" REINACT+2!
^TMP($J NEW+1!, NEW+12*, NEW+21*, NEW+24, NEW+25, NEW+26, NEW+27, NEW+34, NEW+35, NEW+36
, NEW+37, REINACT+14*

Label References

Name Line Occurrences
HEAD NEW+28, NEW+38
NEW TAS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HEAD+2, REINACT+18*, REINACT+19
%DT REINACT+4*, REINACT+6!
%DT("A" REINACT+3*
%ZIS TAS+1*, TAS+2!
DUZ EN+2
IO TAS+9, TAS+10
IO("Q" TAS+8, TAS+12, TAS+20!
IO(0 TAS+10
IOF EN+1, HEAD+1, REINACT+7
IOM HEAD+3
ION TAS+16
IOSL NEW+28, NEW+38
>> J HEAD+3*
>> PBSCNT NEW+19*
>> POP TAS+3
PSB1 NEW+23~, NEW+24*, NEW+25, NEW+26, NEW+27, NEW+32, NEW+33~, NEW+34*, NEW+35, NEW+36
, NEW+37, NEW+42
PSB2 NEW+23~, NEW+25*, NEW+26, NEW+27, NEW+31, NEW+33~, NEW+35*, NEW+36, NEW+37, NEW+41
PSB3 NEW+23~, NEW+26*, NEW+30, NEW+33~, NEW+36*, NEW+40
PSB4 NEW+23~, NEW+26*, NEW+29, NEW+33~, NEW+36*, NEW+39
>> PSB5 NEW+27*, NEW+31, NEW+37*, NEW+41
PSBBDATE TAS+5!, REINACT+6*, REINACT+10
PSBCNT NEW~, NEW+2*, NEW+10*, NEW+43, REINACT+1~, REINACT+8*, REINACT+16*, REINACT+17, REINACT+18
>> PSBDATE REINACT+9*, REINACT+10
PSBDV TAS+5!
PSBEDATE TAS+5!
PSBIEN NEW~, NEW+2*, NEW+3, NEW+4, NEW+9, NEW+12, NEW+18, NEW+21, REINACT+1~, REINACT+8*
, REINACT+9, REINACT+11, REINACT+14, REINACT+15
PSBIV NEW~, NEW+6*, NEW+7, NEW+8, NEW+12, NEW+14*, NEW+16, NEW+17, NEW+21, REINACT+1~
PSBIVD NEW~, NEW+7*, NEW+9, NEW+11*, NEW+12, NEW+16*, NEW+18, NEW+20*, NEW+21, REINACT+1~
>> PSBNAME REINACT+11*, REINACT+12, REINACT+13, REINACT+14, REINACT+15
PSBOI NEW~, NEW+4*, NEW+5, NEW+6, NEW+12, NEW+14, NEW+21, REINACT+1~
>> PSBSTATUS NEW+8*, NEW+12, NEW+17*, NEW+21
PSBTK TAS+7~, TAS+9*
U NEW+3, NEW+4, NEW+7, NEW+8, NEW+16, NEW+17, NEW+29, NEW+30, NEW+31, NEW+39
, NEW+40, NEW+41, REINACT+9, REINACT+11
VISN TAS+5!
>> X REINACT+5
Y HEAD+2*, REINACT+5, REINACT+6!
ZTDESC TAS+13~, TAS+15*
ZTIO TAS+13~, TAS+16*
ZTRTN TAS+13~, TAS+14*
ZTSAVE TAS+13~
ZTSK TAS+19, TAS+20!
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 |  Local Variables |  All