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

Package: Inpatient Medications

Routine: PSIVWL1


Information

PSIVWL1 ;BIR/RGY-WARD LIST ROUTINES ;02 AUG 96 / 9:40 AM

Source Information

Source file <PSIVWL1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 5 (ENQ,ENYN)^PSIV  ^PSIVHLP  ^PSIVHLP1  (ENP2,ENP3)^PSIVRNL  $$CODES^PSIVUTL  
Registration 1 (INP,PID)^VADPT  
VA Fileman 1 (C,NOW)^%DTC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSIVLBL1  PSIVMAN  PSIVRP  PSIVUWL  PSIVWL  

Entry Points

Name Comments DBIA/ICR reference
NXT
SELMAN ;
WD
HDR
PRNT ;
QPRNT
P0
ENRSET
P
NOW1
CODES
SETP
ENINIT ;
NOW
ASK ;
ENT ;
K1
SEL
SEL1

External References

Name Field # of Occurrence
C^%DTC SEL1
NOW^%DTC NOW
ENQ^PSIV ASK+1
ENYN^PSIV ENRSET
^PSIVHLP ASK+2
^PSIVHLP1 ENRSET
ENP2^PSIVRNL PRNT+2
ENP3^PSIVRNL PRNT+3
$$CODES^PSIVUTL P0, HDR+1
INP^VADPT PRNT+1
PID^VADPT NOW1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"The manufacturing times on file are:"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !?10,I," ",$E($P(X,"^",5),1,2),":",$E($P(X,"^",5),3,4)," ",$$CODES^PSIVUTL($P(X,"^",2),59.51,.02)_" covering ",$P(X,"^",3),"."
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRSET+0
Function Call: WRITE
  • Prompt: !,"... Ward list #",$P(X,",",I)," reset"
  • Line Location: ENRSET+1
Function Call: WRITE
  • Prompt: !,VAIN(5),?30
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?70
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: !,PSIV("NME")
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"WARD LIST FOR IV ROOM: ",$P(^PS(59.5,PSIVSN,0),U)," AT "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(Y,"@"),?70,"Printed on : "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,X,"S",?15," covering from "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " to "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?92,"Qty",!,"Patient name",?40,"Order",?70,"Stop date",?90,"needed",?100,"Provider/Initial"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " Ward: ",WRD," "
  • Condition for execution: X=50
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WD+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR, WD
^DPT - [#2] NOW1
^PS(55 - [#55] PRNT+2, SETP, NOW+1, NOW1, NXT, ENINIT+2, K1!, K1+1!
^PS(59.5 - [#59.5] SELMAN+1, ENRSET+1*, HDR, ENINIT+1
^VA(200 - [#200] PRNT+2

Label References

Name Line Occurrences
ENRSET ENRSET
HDR PRNT+1
K1 ENINIT+2
NOW1 NOW+1
NXT NOW1
P ASK+2
PRNT NXT
QPRNT NOW+3
SEL1 SEL
SELMAN ENRSET+1
SETP NXT
WD PRNT+2, HDR+1

Naked Globals

Name Field # of Occurrence
^( SELMAN+1, ENINIT+1
^(0 ENINIT+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW!
%H NOW!
%I NOW!
>> DFN PRNT+2, SETP, NOW1*, NXT
DT K1
>> HELP ASK+2*, ENRSET*
>> I SELMAN+1*, P0*, ASK+1*, SEL*, SEL1, ENRSET+1*, HDR+1*
IOF HDR
IOSL PRNT+1
JX NOW+1*, QPRNT!
>> NOFLG HDR+2, NOW+1*, NOW+2, NXT*
>> ON PRNT+2, SETP, NXT*
>> P( SETP*
>> P(17 NXT
>> P(3 PRNT+2
>> P(6 PRNT+2
>> PSCT SELMAN+1*
>> PSIV SEL*, PRNT+2*
>> PSIV("NME" PRNT+3, NOW1*
>> PSIV1 ENINIT+1*, ENINIT+2*, K1+1*
PSIVCD SELMAN+1!
PSIVCD( SEL*, SEL1*, HDR+1
PSIVDT SEL, SEL1, ENRSET+1, PRNT+2, HDR, NOW+1*, NOW1, QPRNT!, NXT
PSIVMT SELMAN+1!
PSIVMT( SEL*, HDR+1
PSIVOD SELMAN+1!
PSIVOD( SEL*, HDR+1, NOW+1, ENINIT+1, K1+1
PSIVRUN HDR, NOW*, QPRNT!
>> PSIVSN SELMAN+1, ENRSET+1, PRNT+2, HDR, NOW+1, NOW1, NXT, ENINIT+1, ENINIT+2, K1
, K1+1
PSIVT PRNT+2, NOW+1*, NOW1, QPRNT!, NXT, ENINIT+1*, ENINIT+2*, K1, K1+1
PSIVWARD PRNT+1, HDR+4*, NOW*, QPRNT!
PSM SELMAN+1!, ASK+1*, ASK+2, SEL, SEL+1!
PSM( SELMAN+1*, P0, ASK+1, SEL, SEL1
>> SSNF PRNT+3*
U PRNT+2, HDR, NOW1
UWLTY HDR*, HDR+1*, HDR+5!
>> VAIN(5 PRNT+2
WRD PRNT+1, PRNT+2, HDR+3, HDR+4, NOW+1*, NOW1, QPRNT!, NXT
>> X P0*, ASK+1*, SEL+1*, SEL1*, ENRSET*, ENRSET+1, HDR+1*, HDR+3*, SETP*, CODES*
>> X1 SEL1*
>> X2 SEL1*
>> Y ENRSET+1*, PRNT+2*, HDR*, HDR+1*, SETP*, WD, CODES
Z1 ENINIT+1*, ENINIT+2*, ENINIT+3!, K1, K1+1
Z2 ENINIT+1*, ENINIT+3!, K1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All