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

Package: Inpatient Medications

Routine: PSIVPGE


Information

PSIVPGE ;BIR/PR-PURGE IV ORDERS ;05 DEC 97 / 8:44 AM

Source Information

Source file <PSIVPGE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
Q
VW ;Ask user to view order.
VW1 ;Ask user to view activity log.
VW2 ;Ask to view label log
BEG ;Start purge
YN ;Make sure it is ok to start purge.
DEQ
PRGE ;
PAUSE ;
ENT ;Will let user delete an IV order if no doses printed.
A
ENDEL ;D DCNV^PSIVOE S X=^PS(55,DFN,"IV",ON,0) S $P(X,U,17)="P" K:$P(X,U,3)]"" ^PS(55,"AIV",$P(X,U,3),DFN,ON) S $P(X,U,3)=1,^PS(55,DFN,"IV",ON,0)=X,^PS(55,"AIV",1,DFN,ON)="" I $D(^PS(55,DFN,"IV",ON,"ADC")) S TC=^("ADC") K ^PS(55,"ADC",TC,DFN,ON)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"View orders before purged"
  • Line Location: VW+1
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING -- YOU HAVE NOT SELECTED A PRINTER PROFILE DEVICE !!"
  • Line Location: VW+2
Function Call: WRITE
  • Prompt: !,"View activity logs before purged"
  • Line Location: VW1+1
Function Call: WRITE
  • Prompt: !,"View label logs before purged"
  • Line Location: VW2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: $C(7),!,"Enter a date greater than 30 days ago.",!
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !!,"Will purge expired IV orders from "
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),"back.",!,"Ok to start purge"
  • Line Location: YN+1
Function Call: WRITE
  • Prompt: !!,"Time finished: "
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: DEQ+5
Function Call: WRITE
  • Prompt: !,"Delete this order"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," Order not deleted."
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"Order # ",ON," ... Not deleted ",$P(Y,"^",2)," dose(s) given "
  • Line Location: A+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: " Order deleted."
  • Line Location: A+3
Info |  Source |  Entry Points |  Interaction Calls