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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVSET

Package: Inpatient Medications

Routine: PSIVSET


Information

PSIVSET ;BIR/PR-IV PACKAGE ENTRY POINT ;12 DEC 97 / 9:18 AM

Source Information

Source file <PSIVSET.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 NOW^%DTC  ^DIC  YN^DICN  ^DIE  ^DIR  
Inpatient Medications 4 ENIVKV^PSGSETU  ENCHK^PSIVSET  $$CODES^PSIVUTL  (,SET)^PSIVXU  
Kernel 2 ^%ZIS  ^%ZISC  

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

Package Total Caller Graph
Inpatient Medications 6 PSIVCAL  PSIVORFB  PSIVSET  PSIVXU  PSJI DEVICE  PSJI SITE PARAMETERS  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ENOR ;
MULT ;
; PSJ*407/RJH - Begin changes
; I PSIVCT>1 K DIC S DIC="^PS(59.5,",DIC(0)="QEAM",DIC("S")="I $S($P($G(^(""I"")),U)="""":1,1:$P(^(""I""),U)>DT)" D ^DIC K DIC S:Y<0 XQUIT="" Q:Y<0 S PSIVSN=+Y D ENCHK I $D(%) G:%=2 MULT S:%=-1 XQUIT="" G:%=-1 Q1
Q ;
Q1
ENCHK ;
; PSJ*407/RJH - Begin changes
AGA ;
; I 'PSIV R !!,"Would you like to edit this IV room" S %=1 D YN^DICN Q:%=2!(%=-1) W:'% !,"Answer Yes or No.",! G:'% AGA S DIE="^PS(59.5,",DR="[PSJI SITE PARAMETERS]",DA=PSIVSN D ^DIE G ENCHK ; PSJ*407
; I PSIVSN W !!,"You are signed on under the ",$P(^PS(59.5,PSIVSN,0),"^")," IV ROOM" K % ; PSJ*407
ENLD ;Get label device.
ENPD ;Get printer device.
DEVX
SITEPARM ; Edit IV Site Parameters.
SITEMSG ;
MSG1(FLG) ;
MISSING ; Show the missing coverage time(s)
SETUP ; Menu options to check to display missing coverage warnings to the user
; S OPTS(Menu option from #19)="". Menu option is piece one of XQY0

External References

Name Field # of Occurrence
NOW^%DTC PSIVSET+9, ENOR+1
^%ZIS Q+3, Q+5, ENLD+1, ENPD+1
^%ZISC Q+8
^DIC MULT+5, MULT+14, SITEPARM+3, SITEPARM+5
YN^DICN Q+1
^DIE MULT+15, SITEPARM+4, SITEPARM+5
^DIR SITEMSG+3, MSG1+6
ENIVKV^PSGSETU SITEPARM+5
ENCHK^PSIVSET SITEPARM+5
$$CODES^PSIVUTL MISSING+2
^PSIVXU SITEPARM+1, SITEPARM+5
SET^PSIVXU SITEPARM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have not selected a valid IV ROOM"
  • Line Location: Q+1
Function Call: WRITE
  • Prompt: !!,"Current IV LABEL device is: ",ION
  • Line Location: Q+3
Function Call: WRITE
  • Prompt: !!,"Current IV REPORT device is: ",ION
  • Line Location: Q+5
Function Call: WRITE
  • Prompt: !!,$C(7),"This IV room is missing parameters."
  • Line Location: ENCHK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Manufacturing Time(s) missing for "
  • Line Location: ENCHK+9
Function Call: WRITE
  • Prompt: X
  • Line Location: ENCHK+9
Function Call: READ
  • Prompt: !!
  • Variable: "Would you like to edit this IV room" S %=1 D YN^DICN Q
  • Timeout: %=2!(%=-1)
  • Line Location: AGA+1
Function Call: WRITE
  • Prompt: !!,"You are signed on under the ",$P(^PS(59.5,PSIVSN,0),"^")," IV ROOM"
  • Line Location: AGA+2
Function Call: WRITE
  • Prompt: !!,"You are signed on under the ",$P(^PS(59.5,PSIVSN,0),"^")," IV ROOM"
  • Line Location: AGA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENLD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ENPD+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You must select a device."
  • Line Location: DEVX+0
Function Call: WRITE
  • Prompt: !,!,"Please select "_$P(^PS(59.5,PSIVSN,0),U,1)_" IV ROOM to update the Parameters."
  • Line Location: SITEMSG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SITEMSG+3
Function Call: WRITE
  • Prompt: !,!,"The "_$P(^PS(59.5,PSIVSN,0),U,1)_" IV ROOM can be updated using option 'Site Parameters (IV)'"
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !,"by a holder of the PSJI MGR VistA Security Key. Contact the"
  • Line Location: MSG1+3
Function Call: WRITE
  • Prompt: !,"Pharmacy Informaticist to update the IV Room parameters."
  • Line Location: MSG1+4
Function Call: WRITE
  • Prompt: !!,"You are being returned to the Option Menu."
  • Line Location: MSG1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG1+6
Function Call: WRITE
  • Prompt: !!,$C(7),"Coverage Time(s) missing for "
  • Line Location: MISSING+2
Function Call: WRITE
  • Prompt: X
  • Line Location: MISSING+2
Routine Call
  • DIC
  • Line Location:
    • MULT+5
    • MULT+14
    • SITEPARM+3
    • SITEPARM+5
Routine Call
  • DIE
  • Line Location:
    • MULT+15
    • SITEPARM+4
    • SITEPARM+5
Routine Call
  • DIR
  • Line Location:
    • SITEMSG+3
    • MSG1+6
Routine Call
  • %ZIS
  • Line Location:
    • Q+3
    • Q+5
    • ENLD+1
    • ENPD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.5 - [#59.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59.5 - [#59.5] ENOR+1, ENOR+2, Q+3, Q+5, ENCHK+7, ENCHK+8, ENCHK+10, AGA+4, ENLD+1, ENPD+1
, SITEMSG+2, MSG1+2, MISSING+1
^TMP("PSJUSER" MULT+4, MULT+9, ENCHK+10*, AGA+11, SITEMSG+4*, MSG1+7*

Label References

Name Line Occurrences
ENCHK ENOR+3, MULT+7, MULT+9, MULT+15
ENLD Q+4
ENPD Q+6
MISSING SITEMSG+1, MSG1+1
MSG1 AGA+11, AGA+12
MULT MULT+7, MULT+9
PSIVSET Q+2
Q Q+1
Q1 ENOR+3, MULT+7, MULT+9, MULT+14, Q+2
SETUP ENCHK+3
SITEMSG AGA+9

Naked Globals

Name Field # of Occurrence
^(0 ENLD+1, ENPD+1
^(5 ENCHK+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSIVSET+9, ENOR+2, ENOR+3, MULT+7, MULT+9, Q+1*, Q+2, Q1!, AGA+4!
%X AGA+5!, SITEMSG+5!, MSG1+8!
%Y AGA+5!, SITEMSG+5!, MSG1+8!
%ZIS Q+3*, Q+5*, Q1!, ENLD+1*, ENLD+2!, ENPD+1*, ENPD+2!
%ZIS("A" ENLD+1*, ENPD+1*
%ZIS("B" ENLD+1*, ENPD+1*
C AGA+5!, SITEMSG+5!, MSG1+8!
CHK SITEPARM+2~
D AGA+5!, SITEMSG+5!, MSG1+8!
D0 AGA+5!, SITEMSG+5!, MSG1+8!
D1 AGA+5!, SITEMSG+5!, MSG1+8!
DA MULT+15*, AGA+5!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*, SITEMSG+5!, MSG1+8!
DIC MULT+5!*, MULT+14*, MULT+15!, AGA+5!, SITEPARM+2~, SITEPARM+3*, SITEPARM+4, SITEPARM+5*, SITEMSG+5!, MSG1+8!
DIC("A" MULT+14*
DIC("S" MULT+5*
DIC(0 MULT+5*, MULT+14*, SITEPARM+3*, SITEPARM+5*
DIE MULT+15*, AGA+5!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*, SITEMSG+5!, MSG1+8!
DIOV SITEPARM+2~
DIR SITEMSG+3!, MSG1+6!
DIR("A" SITEMSG+3*, MSG1+6*
DIR(0 SITEMSG+3*, MSG1+6*
DIRUT SITEMSG+3!, MSG1+6!
DLAYGO MULT+14*, SITEPARM+2~, SITEPARM+5*
>> DONE MULT+12, ENCHK+4*, MSG1+5*
DR MULT+15*, AGA+5!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*, SITEMSG+5!, MSG1+8!
DTOUT SITEPARM+2~, SITEMSG+3!, MSG1+6!
DUOUT SITEMSG+3!, MSG1+6!
FLG MSG1~, MSG1+5, MSG1+7
ION Q+3, Q+5, Q+8, ENLD+1*, ENLD+2, ENPD+1*, ENPD+2
IOP Q+3*, Q+5*, Q1!, ENLD+1!, ENLD+2!, ENPD+1!, ENPD+2!
OPT1 ENCHK+2~, ENCHK+5*, AGA+9, AGA+11, AGA+12
OPTS ENCHK+2~
OPTS( AGA+12
OPTS("PSJ ECO " , SETUP+16*
OPTS("PSJ OE" , SETUP+17*
OPTS("PSJI IN DIVIDUAL SUSPENSE" , SETUP+10*
OPTS("PSJI LB LI" , SETUP+4*, LMENU" , SETUP+3*
OPTS("PSJI MA N" , SETUP+5*
OPTS("PSJI OR DER" , SETUP+6*
OPTS("PSJI RE TURN BY BARCODE ID" , SETUP+2*, TURNS" , SETUP+7*
OPTS("PSJI SU SLBDEL" , SETUP+9*, SLBLS" , SETUP+11*, SLIST" , SETUP+14*, SMAN" , SETUP+12*, SMENU" , SETUP+8*
, SREP" , SETUP+13*
OPTS("PSJU VB W" , SETUP+15*
>> POP ENLD+1, ENPD+1
PSGDT SITEPARM+2~
PSIV ENCHK+7*, ENCHK+10*, AGA+3, AGA+5!, SITEMSG+5!, MSG1+8!
PSIVCT ENOR+1*, ENOR+2*, ENOR+3, MULT+3, MULT+14, MULT+15, Q1!
>> PSIVPL Q+3*, Q+8*, ENLD+2*
>> PSIVPR Q+5*, Q+8*, ENPD+2*
>> PSIVSITE ENCHK+8*
>> PSIVSN ENOR+1*, ENOR+2*, MULT+7*, MULT+9*, MULT+15*, Q+1, Q+2, Q+3, Q+5, ENCHK+7
, ENCHK+8, ENCHK+10, AGA+3, AGA+4, ENLD+1, ENPD+1, SITEMSG+2, MSG1+2, MISSING+1
TYP ENCHK+10*, AGA+5!, SITEMSG+5!, MSG1+8!, MISSING+1*, MISSING+2
U Q+3, Q+5, ENCHK+5, ENCHK+7, ENCHK+8, ENLD+1, ENPD+1, SITEMSG+2, MSG1+2
X ENOR+1*, ENOR+2, AGA+5!, SITEMSG+5!, MSG1+8!, MISSING+2*
>> XQUIT ENOR+3*, MULT+6*, MULT+7*, MULT+9*, MULT+14*, Q+2*, SITEPARM+1, SITEPARM+5
>> XQY0 ENCHK+5
Y PSIVSET+9*, MULT+6, MULT+7, MULT+14, MULT+15, AGA+5!, SITEPARM+3, SITEPARM+4, SITEPARM+5, SITEMSG+5!
, MSG1+8!
Z AGA+5!, SITEPARM+2~, SITEMSG+5!, MSG1+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All