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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.5 - [#59.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call