Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls