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

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Inpatient Medications 13 ENIVKV^PSGSETU  ENNA^PSIVACT  ^PSIVHLP  ^PSIVHLP1  ^PSIVHLP2  DATA^PSIVLTR1  DCNV^PSIVOE  GT55^PSIVORFB  
(ENNH,ENNONUM)^PSIVORV2  ENLOG^PSIVVW1  ^PSIVXU  ENIV^PSJAC  PAUSE^PSJLMUTL  
VA FileMan 4 ^%DT  (,NOW)^%DTC  YN^DICN  ^DIR  
Kernel 1 ^%ZTLOAD  
List Manager 1 FULL^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: 1

Package Total Caller Graph
Inpatient Medications 1 PSJI PURGE ORDERS  

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)

External References

Name Field # of Occurrence
^%DT BEG+1
^%DTC BEG+2
NOW^%DTC BEG+2, DEQ+1, DEQ+5
^%ZTLOAD YN+3
YN^DICN VW+1, VW1+1, VW2+1, YN+1, A
^DIR PAUSE+1
ENIVKV^PSGSETU Q
ENNA^PSIVACT DEQ+4
^PSIVHLP BEG+1
^PSIVHLP1 VW+1, VW1+1, YN+1, A
^PSIVHLP2 VW2+1
DATA^PSIVLTR1 PRGE+7
DCNV^PSIVOE PRGE+8, ENDEL+1
GT55^PSIVORFB PRGE+3
ENNH^PSIVORV2 ENT+2
ENNONUM^PSIVORV2 PRGE+3
ENLOG^PSIVVW1 PRGE+5
^PSIVXU EN+1
ENIV^PSJAC DEQ+4
PAUSE^PSJLMUTL ENT+3
FULL^VALM1 ENT+1

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" YN+1, DEQDEQ+1, DEQ+5, A+2
^PS(55 - [#55] DEQ+3, DEQ+4, PRGE+1, PRGE+2!, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+8, PRGE+9!
PRGE+10!, PRGE+11!, PRGE+12, A+2, ENDEL+1, ENDEL+2!, ENDEL+3!, ENDEL+4!, ENDEL+5*, ENDEL+6!

Label References

Name Line Occurrences
A ENT+3, A
BEG BEG+2
ENDEL A+3
PAUSE PRGE+3, PRGE+5, PRGE+7
PRGE DEQ+4
Q VW+1, VW1+1, VW2+1, BEG+1, YN+2, YN+3, DEQ+6
VW EN+1, VW+1
VW1 VW1+1
VW2 VW2+1
YN YN+1

Naked Globals

Name Field # of Occurrence
^("ADC" PRGE+2, ENDEL+6
^(0 PRGE+12*
^(2 PRGE+1
^(9 A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VW+1*, VW+2, VW1+1*, VW2+1*, BEG+2, YN+1*, YN+2, DEQ+1, DEQ+5, A*
A+1
>> %DT BEG+1*
>> %DT("A" BEG+1*
DFN Q!, DEQ+4*, PRGE+1, PRGE+2, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+8, PRGE+9
PRGE+10, PRGE+11, PRGE+12, A+2, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5, ENDEL+6
DIR PAUSE+1!
DIR(0 PAUSE+1*
>> DIRUT DEQ+3, DEQ+4, DEQ+5, PRGE+3, PRGE+5, PRGE+7
>> HELP VW+1*, VW1+1*, VW2+1*, BEG+1*, YN+1*, A*
IO DEQ
>> IO(0 DEQ
IOF QDEQ
ION VW+2, YN+3
IOST DEQ
N Q!
ON Q!, DEQ+4*, PRGE+1, PRGE+2, PRGE+3, PRGE+4, PRGE+5, PRGE+6*, PRGE+7, PRGE+8
PRGE+9, PRGE+10, PRGE+11, ENT+2, A+2*, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5
ENDEL+6
>> ON55 PRGE+3*, PRGE+5, A+2
P Q!
P("PON" PRGE+3*
P17 Q!
PS Q!
PSIVDT Q!, DEQ+3*, DEQ+4, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+9
PSIVLAB Q!, VW+1*, VW2+1*, PRGE+7
PSIVLOG Q!, VW+1*, VW1+1*, PRGE+5
PSIVPDT Q!, BEG+2*, YN+1, DEQDEQ+2*, DEQ+3, PRGE+1
PSIVPN Q!, DEQ*, DEQ+5, PRGE+3*, PRGE+4*
>> PSIVPR QVW+2, YN+3
PSIVRD Q!, DEQ+2*
PSIVREA Q!
>> PSIVSLV DEQ*, DEQ+1, PAUSE+1
>> PSIVSN PRGE+1, PRGE+9
PSIVVO Q!, VW+2*, VW1+1, VW2+1, DEQ+4, PRGE+3, PRGE+4
>> PSIVXU EN+1
PSJACNWP Q!, DEQ+4*
>> PSJORD PRGE+5*, ENT+2*
>> TC ENDEL+6*
TDC PRGE+2*!
U PRGE+10, PRGE+11, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5
>> X BEG+2, PRGE+8*, PRGE+10, PRGE+11, ENDEL+1*, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5*
>> X1 BEG+2*
>> X2 BEG+2*
XQUIT EN+1~
>> Y BEG+1, BEG+2*, YN+1*, DEQ*, DEQ+1*, DEQ+5*, A+2*
Z Q!
>> ZTDESC YN+3*
>> ZTIO YN+3*
>> ZTQUEUED Q
>> ZTREQ Q*
>> ZTRTN YN+3*
>> ZTSAVE("PSIVLAB" YN+3*
>> ZTSAVE("PSIVLOG" YN+3*
>> ZTSAVE("PSIVPDT" YN+3*
>> ZTSAVE("PSIVSITE" YN+3*
>> ZTSAVE("PSIVSN" YN+3*
>> ZTSAVE("PSIVVO" YN+3*
>> ZTSAVE("PSJSYSU" YN+3*
>> ZTSAVE("PSJSYSW0" YN+3*
ZTSK Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All