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

Package Total Call Graph
Inpatient Medications 4 ENIVKV^PSGSETU  ENCHK^PSIVSET  $$CODES^PSIVUTL  (,SET)^PSIVXU  
VA FileMan 4 NOW^%DTC  ^DIC  YN^DICN  ^DIE  
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: 6

Package Total Caller Graph
Inpatient Medications 6 PSIVCAL  PSIVORFB  PSIVSET  PSIVXU  PSJI DEVICE  PSJI SITE PARAMETERS  

Entry Points

Name Comments DBIA/ICR reference
ENOR ;
MULT ;
Q ;
Q1
ENCHK ;
AGA ;
ENLD ;Get label device.
ENPD ;Get printer device.
DEVX
SITEPARM ; Edit IV Site Parameters.

External References

Name Field # of Occurrence
NOW^%DTC PSIVSET+5, ENOR+1
^%ZIS Q+3, Q+5, ENLD+1, ENPD+1
^%ZISC Q+8
^DIC MULT+1, MULT+2, SITEPARM+3, SITEPARM+5
YN^DICN Q+1, AGA+1
^DIE MULT+3, AGA+1, SITEPARM+4, SITEPARM+5
ENIVKV^PSGSETU SITEPARM+5
ENCHK^PSIVSET SITEPARM+5
$$CODES^PSIVUTL ENCHK+3
^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+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Manufacturing Time(s) missing for "
  • Line Location: ENCHK+3
Function Call: WRITE
  • Prompt: X
  • Line Location: ENCHK+3
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: !
  • 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
Routine Call
  • DIC
  • Line Location:
    • MULT+1
    • MULT+2
    • SITEPARM+3
    • SITEPARM+5
Routine Call
  • DIE
  • Line Location:
    • MULT+3
    • AGA+1
    • SITEPARM+4
    • SITEPARM+5
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+1, ENCHK+2, ENCHK+3, AGA+2, ENLD+1, ENPD+1

Label References

Name Line Occurrences
AGA AGA+1
ENCHK ENOR+3, MULT+1, MULT+3, AGA+1
ENLD Q+4
ENPD Q+6
MULT MULT+1
PSIVSET Q+2
Q Q+1
Q1 ENOR+3, MULT+1, MULT+2, Q+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSIVSET+5, ENOR+2, ENOR+3, MULT+1, Q+1*, Q+2, Q1!, AGA+1*, AGA+2!
%X AGA+3!
%Y AGA+3!
%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+3!
CHK SITEPARM+2~
D AGA+3!
D0 AGA+3!
D1 AGA+3!
DA MULT+3*, AGA+1*, AGA+3!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*
DIC MULT+1!*, MULT+2*, MULT+3!, AGA+3!, SITEPARM+2~, SITEPARM+3*, SITEPARM+4, SITEPARM+5*
DIC("A" MULT+2*
DIC("S" MULT+1*
DIC(0 MULT+1*, MULT+2*, SITEPARM+3*, SITEPARM+5*
DIE MULT+3*, AGA+1*, AGA+3!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*
DIOV SITEPARM+2~
DLAYGO MULT+2*, SITEPARM+2~, SITEPARM+5*
DR MULT+3*, AGA+1*, AGA+3!, SITEPARM+2~, SITEPARM+4*, SITEPARM+5*
DTOUT SITEPARM+2~
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!
>> POP ENLD+1, ENPD+1
PSGDT SITEPARM+2~
PSIV ENCHK+1*, ENCHK+3*, AGA+1, AGA+3!
PSIVCT ENOR+1*, ENOR+2*, ENOR+3, MULT+1, MULT+2, MULT+3, Q1!
>> PSIVPL Q+3*, Q+8*, ENLD+2*
>> PSIVPR Q+5*, Q+8*, ENPD+2*
>> PSIVSITE ENCHK+2*
>> PSIVSN ENOR+1*, ENOR+2*, MULT+1*, MULT+3*, Q+1, Q+2, Q+3, Q+5, ENCHK+1, ENCHK+2
ENCHK+3, AGA+1, AGA+2, ENLD+1, ENPD+1
TYP ENCHK+3*, AGA+3!
U Q+3, Q+5, ENCHK+1, ENCHK+2, ENLD+1, ENPD+1
X ENOR+1*, ENOR+2, ENCHK+3*, AGA+3!
>> XQUIT ENOR+3*, MULT+1*, MULT+2*, Q+2*, SITEPARM+1, SITEPARM+5
Y PSIVSET+5*, MULT+1, MULT+2, MULT+3, AGA+3!, SITEPARM+3, SITEPARM+4, SITEPARM+5
Z AGA+3!, SITEPARM+2~
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