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

Package: Inpatient Medications

Routine: PSJ200


Information

PSJ200 ;BIR/RSB-UTILITY TO CORRECT CHANGED USER NAMES IN IV'S ;30 APR 97 / 8:39 AM

Source Information

Source file <PSJ200.m>

Entry Points

Name Comments DBIA/ICR reference
200()
201
PRIV() ;
SEARCH ;
CONVERT(DFN,TYPE) ;
; Convert existing UD orders to new format. Only run once/patient, and
; only converts orders with a stop date<(5.0 Install date-365)
; DFN = Patient IEN
; TYPE = Background or Interactive mode
M ; sends mail message when complete
A(LONG,SHORT,SHRINK)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!," The following user names were found in IV orders. These names have either",!," been deleted, changed, or are duplicates in the NEW PERSON file.",!
  • Line Location: PSJ200+10
Function Call: WRITE
  • Prompt: !!," Please do one of the following:"
  • Line Location: PSJ200+13
Function Call: WRITE
  • Prompt: !," a. If the name has changed, pick the correct name from the NEW PERSON file."
  • Line Location: PSJ200+14
Function Call: WRITE
  • Prompt: !," b. If the person has been deleted from the file, please see the appropriate",!?3," person to get this named added back into the NEW PERSON file and rerun this",!?3," option."
  • Line Location: PSJ200+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSJ200+16
Function Call: WRITE
  • Prompt: !!," Finished. Please have IRM remove this option"
  • Line Location: PSJ200+19
Function Call: WRITE
  • Prompt: " (PSJI 200) from",!," your menu, as it is no longer needed."
  • Line Location: PSJ200+20
Function Call: WRITE
  • Prompt: !!,"Not all names have been corrected, PLEASE RERUN THIS OPTION!"
  • Line Location: PSJ200+21
Function Call: WRITE
  • Prompt: !
  • Line Location: 201+0
Function Call: WRITE
  • Prompt: !," You must hold the PSJI MGR security to run this routine"
  • Line Location: PRIV+2

FileMan Files Accessed Via FileMan Db Call

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