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

Package: Inpatient Medications

Routine: PSIVLTR1


Information

PSIVLTR1 ;BIR/PR-PRINT LABEL TRACKER BY PATIENT ;2 NOV 92 / 9:34 AM

Source Information

Source file <PSIVLTR1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 2 $$ENDTC1^PSGMI  PSBPOIV^PSJIBAG  
VA FileMan 2 EN^DIQ1  ^DIR  
List Manager 1 CLEAR^VALM1  

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

Package Total Caller Graph
Inpatient Medications 3 PSIVPGE  PSIVPR  PSIVVW1  

Entry Points

Name Comments DBIA/ICR reference
DATA(DFN,ON) ;Get the information
NEWDATA(DFN,ON,ALLINV) ;Get the information
OLDDATA(DFN,ON,ALLINV) ; Get labels for current order
K ;
1 ;Get num labels, track, daily usage
P ;Print out info
PAUSE ;
H ;Header
H2 ;Header for Unique ID #s
ERROR ;
BLDORAR(DFN,ON) ; Build global index of all previous orders in ^TMP("PSJIBAG0",$J,DFN,ON)
NONACT(DFN,ON) ; Check to see if the final order in this chain in Discontinued or Expired

External References

Name Field # of Occurrence
EN^DIQ1 NEWDATA+8, OLDDATA+10
^DIR OLDDATA+4, PAUSE+1
$$ENDTC1^PSGMI NEWDATA+11, NEWDATA+18, OLDDATA+13, OLDDATA+20
PSBPOIV^PSJIBAG DATA+2
CLEAR^VALM1 H2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No label log to report.",!
  • Line Location: NEWDATA+2
Function Call: WRITE
  • Prompt: $$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,4,"I"))),?16,$G(PSJD2(55.0105,PSJBLN,.01,"I"))
  • Line Location: NEWDATA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWDATA+11
Function Call: WRITE
  • Prompt: ?37,AVAIL
  • Line Location: NEWDATA+15
Function Call: WRITE
  • Prompt: ?43,LSTAT
  • Line Location: NEWDATA+16
Function Call: WRITE
  • Prompt: ?53,$S(X:"YES",1:"NO"),?57,$E($G(PSJD2(55.0105,PSJBLN,2,"E")),1,8)
  • Line Location: NEWDATA+17
Function Call: WRITE
  • Prompt: ?66,$$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,1,"I")))
  • Line Location: NEWDATA+18
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWDATA+19
Function Call: WRITE
  • Prompt: $$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,4,"I"))),?16,$G(PSJD2(55.0105,PSJBLN,.01,"I"))
  • Line Location: OLDDATA+13
Function Call: WRITE
  • Prompt: !
  • Line Location: OLDDATA+13
Function Call: WRITE
  • Prompt: ?37,AVAIL
  • Line Location: OLDDATA+17
Function Call: WRITE
  • Prompt: ?43,LSTAT
  • Line Location: OLDDATA+18
Function Call: WRITE
  • Prompt: ?53,$S(X:"YES",1:"NO"),?57,$E($G(PSJD2(55.0105,PSJBLN,2,"E")),1,8)
  • Line Location: OLDDATA+19
Function Call: WRITE
  • Prompt: ?66,$$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,1,"I")))
  • Line Location: OLDDATA+20
Function Call: WRITE
  • Prompt: !
  • Line Location: OLDDATA+21
Function Call: WRITE
  • Prompt: !,COU,?3,DATE,!,?18,OG,?32,$E($P(^VA(200,USER,0),U),1,15),?50,NUMLAB
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?60,TRA
  • Condition for execution: $P(N,U,3)=1!($P(N,U,3)=5)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?77,CD
  • Condition for execution: $P(N,U,3)=1
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"LABEL LOG:",!!,"#",?3,"DATE/TIME",?18,"ACTION",?32,"USER",?47,"#LABELS",?60,"TRACK",?75,"COUNT",!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I=80
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"Unique IDs for linked (edited) orders:",!!
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !!,"Unique IDs for this order:",!!
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: ?33,"Available",!
  • Line Location: H2+4
Function Call: WRITE
  • Prompt: "Label Date/Time",?16,"Unique ID",?34,"in BCMA",?43,"Status",?51,"Count",?57,"BCMA Action-Date/Time",!!
  • Line Location: H2+5
Function Call: WRITE
  • Prompt: !!?40,"Bag(s) DISPENSED in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," "),0),U)
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !?40,"Bag(s) ",OG_" in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," ",2),0),U)
  • Line Location: ERROR+2
Routine Call
  • DIR
  • Line Location:
    • OLDDATA+4
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 1+2
^PS(53.1 - [#53.1] BLDORAR+4, BLDORAR+5, NONACT+5
^PS(55 - [#55] NEWDATA+2, NEWDATA+3, NEWDATA+4, NEWDATA+6, NEWDATA+14, OLDDATA+2, OLDDATA+7, OLDDATA+16, BLDORAR+5, NONACT+4
, NONACT+6
^PS(59.5 - [#59.5] ERROR+1, ERROR+2
^TMP("PSJIBAG0" OLDDATA+2, OLDDATA+7, OLDDATA+11, K+2!, BLDORAR+3*
^TMP("PSJINBAG" DATA+1!, DATA+2, NEWDATA+14, OLDDATA+16, K+2!
^VA(200 - [#200] P+1

Label References

Name Line Occurrences
$$NONACT DATA+3
1 NEWDATA+3
BLDORAR DATA+5
ERROR P+1
H NEWDATA+2
H2 NEWDATA+5, NEWDATA+10, OLDDATA+6, OLDDATA+12
K DATA+7
NEWDATA DATA+4
OLDDATA DATA+6
P 1+3
PAUSE NEWDATA+5, NEWDATA+10, OLDDATA+12, P+1

Naked Globals

Name Field # of Occurrence
^( DATA+2, NEWDATA+3
^(0 1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLINV NEWDATA~, NEWDATA+14, OLDDATA~, OLDDATA+16
AVAIL NEWDATA+7~*, NEWDATA+14*, NEWDATA+15, OLDDATA+9~, OLDDATA+16*, OLDDATA+17
BSTAT NEWDATA+7~, NEWDATA+13*, NEWDATA+14, OLDDATA+9~, OLDDATA+15*, OLDDATA+16
CD K+1!, 1+3*, P+1, P+2!
>> COU NEWDATA+2*, NEWDATA+3*, OLDDATA+5*, P+1
DA NEWDATA+1~, NEWDATA+7!, NEWDATA+8*, OLDDATA+1~, OLDDATA+9!, OLDDATA+10*
DATE K+1!, 1+2*, P+1, P+2!
DFN DATA~, DATA+1, DATA+2, DATA+3, DATA+4, DATA+5, DATA+6, NEWDATA~, NEWDATA+2, NEWDATA+3
, NEWDATA+4, NEWDATA+6, NEWDATA+8, NEWDATA+14, OLDDATA~, OLDDATA+2, OLDDATA+7, OLDDATA+10, OLDDATA+11, OLDDATA+16
, BLDORAR~, BLDORAR+3, BLDORAR+5, NONACT~, NONACT+4, NONACT+6
DIC NEWDATA+1~, NEWDATA+7!, NEWDATA+8*, OLDDATA+1~, OLDDATA+9!, OLDDATA+10*
DIQ NEWDATA+1~, NEWDATA+7!, NEWDATA+8*, OLDDATA+1~, OLDDATA+9!, OLDDATA+10*
DIQ(0 NEWDATA+8*, OLDDATA+10*
DIR OLDDATA+4!, PAUSE+1~
DIR("A" OLDDATA+4*
DIR("B" OLDDATA+4*
DIR(0 OLDDATA+4*, PAUSE+1*
DONE NONACT+1~*, NONACT+3, NONACT+7*
DR NEWDATA+1~, NEWDATA+7!, NEWDATA+8*, OLDDATA+1~, OLDDATA+9!, OLDDATA+10*
>> DTOUT PAUSE+1
>> DUOUT PAUSE+1
FOLLOW NONACT+1~*, NONACT+4*, NONACT+5*, NONACT+6*, NONACT+7, NONACT+8
>> I H+1*
IOSL NEWDATA+10, OLDDATA+12, P+1
IOST NEWDATA+2, OLDDATA+5
>> L NEWDATA+3*
LSTAT NEWDATA+7~, NEWDATA+12*, NEWDATA+14, NEWDATA+16, OLDDATA+9~, OLDDATA+14*, OLDDATA+16, OLDDATA+18
>> N 1+2*, 1+3, P+1, ERROR+1, ERROR+2
NUMLAB K+1!, 1+3*, P+1, P+2!
NXTON NONACT+1~, NONACT+2*, NONACT+4, NONACT+5, NONACT+6, NONACT+8*
OCNT OLDDATA+1~, OLDDATA+7*
>> OG 1+2*, P+1, ERROR+2
ON DATA~, DATA+2, DATA+3, DATA+4, DATA+5, DATA+6, NEWDATA~, NEWDATA+2, NEWDATA+3, NEWDATA+4
, NEWDATA+9, NEWDATA+14, OLDDATA~, OLDDATA+2, OLDDATA+8, OLDDATA+16, BLDORAR~, BLDORAR+3, BLDORAR+4*, BLDORAR+5*
, BLDORAR+6, NONACT~, NONACT+2
PRVDONE BLDORAR+1~*, BLDORAR+2, BLDORAR+6*
PSIVOLDD OLDDATA+1~*, H2+2, H2+3
>> PSIVSCR NEWDATA+2*, NEWDATA+10, OLDDATA+5*, OLDDATA+12, P+1
PSJBCIV DATA+1~*, DATA+2*, NEWDATA+14, OLDDATA+16
PSJBLN NEWDATA+1~, NEWDATA+5*, NEWDATA+6*, NEWDATA+8, NEWDATA+9, NEWDATA+11, NEWDATA+12, NEWDATA+13, NEWDATA+14, NEWDATA+17
, NEWDATA+18, OLDDATA+1~, OLDDATA+6*, OLDDATA+7*, OLDDATA+10, OLDDATA+11, OLDDATA+13, OLDDATA+14, OLDDATA+15, OLDDATA+16
, OLDDATA+19, OLDDATA+20
PSJD1 NEWDATA+1~, OLDDATA+1~
PSJD2 NEWDATA+1~, NEWDATA+7!, OLDDATA+1~, OLDDATA+9!
PSJD2( NEWDATA+9, NEWDATA+11, NEWDATA+12, NEWDATA+13, NEWDATA+17, NEWDATA+18, OLDDATA+11, OLDDATA+13, OLDDATA+14, OLDDATA+15
, OLDDATA+19, OLDDATA+20
PSJDCEX DATA+1~*, DATA+3*, DATA+4, DATA+6, NONACT+3, NONACT+4*, NONACT+5*, NONACT+6*, NONACT+9
PSJDNE NEWDATA+2!, NEWDATA+3, NEWDATA+6, NEWDATA+10, OLDDATA+5!, OLDDATA+7, OLDDATA+12, PAUSE+1*
PSJIFOLL DATA+1~
PSJIMORE OLDDATA+1~*, OLDDATA+2*, OLDDATA+3
PSJISTAT DATA+1~
STATUS NONACT+1~*, NONACT+4*, NONACT+5*, NONACT+6*
TMPON OLDDATA+1~, OLDDATA+2*, OLDDATA+7*, OLDDATA+8
TRA K+1!, 1+3*, P+1, P+2!
U 1+2, 1+3, P+1, ERROR+1, ERROR+2
>> USER 1+2*, P+1
USEROG P+2!
X NEWDATA+1~, NEWDATA+17*, OLDDATA+1~, OLDDATA+19*
>> Y OLDDATA+4, 1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All