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 |  Local Variables |  All
Print Page as PDF
Routine: PSJ200A

Package: Inpatient Medications

Routine: PSJ200A


Information

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

Source Information

Source file <PSJ200A.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Inpatient Medications 1 VF^PSJUTL3  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJI ACTIVITY LOG VA200  

Entry Points

Name Comments DBIA/ICR reference
201
M ; sends mail message when complete
SEARCH ;
PRIV() ;
200()

External References

Name Field # of Occurrence
NOW^%DTC SEARCH+7
^%ZTLOAD PSJ200A+22
^DIC 201+2
^DIE SEARCH+6
^DIR 201+3
VF^PSJUTL3 SEARCH+7
^XMD M+6

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: PSJ200A+8
Function Call: WRITE
  • Prompt: !!," Please do one of the following:"
  • Line Location: PSJ200A+11
Function Call: WRITE
  • Prompt: !," a. If the name has changed, pick the correct name from the NEW PERSON file."
  • Line Location: PSJ200A+12
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: PSJ200A+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSJ200A+14
Function Call: WRITE
  • Prompt: !!," Finished. Please have IRM remove this option"
  • Line Location: PSJ200A+17
Function Call: WRITE
  • Prompt: " (PSJI 200) from",!," your menu, as it is no longer needed."
  • Line Location: PSJ200A+18
Function Call: WRITE
  • Prompt: !!,"Not all names have been corrected, PLEASE RERUN THIS OPTION!"
  • Line Location: PSJ200A+19
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
Routine Call
  • DIE
  • Line Location:
    • SEARCH+6
Routine Call
  • DIC
  • Line Location:
    • 201+2
Routine Call
  • DIR
  • Line Location:
    • 201+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] 201+3
^XTMP("PSJ NEW PERSON" PSJ200A+3, PSJ200A+9, PSJ200A+14, SEARCH+2, SEARCH+3, SEARCH+7, SEARCH+8!, M+1
^XTMP("PSJ NEW1" PSJ200A+16*, SEARCH+1, SEARCH+5, SEARCH+10!
^XUSEC("PSJI MGR" PRIV+1

Label References

Name Line Occurrences
$$200 PSJ200A+15
$$PRIV PSJ200A+6
201 201+3
M SEARCH+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SEARCH+7
DA SEARCH+4!*, SEARCH+6!
DA(1 SEARCH+4*
DA(2 SEARCH+4*
DIC 201!*, 201+2!
DIC("A" 201+1*
DIC(0 201*
DIE SEARCH+4!*, SEARCH+6!
>> DIR("A" 201+3*
>> DIR(0 201+3*
>> DR SEARCH+6*
DTOUT PSJ200A+7!, 201!
DUOUT PSJ200A+7!, PSJ200A+14, 201!
DUZ PRIV+1, M+2
IOF PSJ200A+8
PSJ1 SEARCH+1*, SEARCH+2, SEARCH+3, SEARCH+5, SEARCH+7, SEARCH+8, SEARCH+10, SEARCH+11!, M+6!
PSJ1(1 M+3*
PSJ1(2 M+4*
PSJ1(3 M+4*
PSJ1(4 M+5*
PSJ1(5 M+6*
PSJ2 SEARCH+2*, SEARCH+3, SEARCH+4, SEARCH+7, SEARCH+8, SEARCH+11!
PSJ3 SEARCH+3*, SEARCH+4, SEARCH+7, SEARCH+8, SEARCH+11!
PSJ4 SEARCH+3*, SEARCH+4, SEARCH+7, SEARCH+11!
PSJB PSJ200A+16*, PSJ200A+17, PSJ200A+20!
PSJC PSJ200A+20!, SEARCH+9*
PSJDFN PSJ200A+20!
PSJDUZ SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+8!
PSJL PSJ200A+7!, PSJ200A+9*, PSJ200A+10, PSJ200A+14*, PSJ200A+16, PSJ200A+20!, 201+1
PSJNUM PSJ200A+20!
PSJORD PSJ200A+20!
PSJPT PSJ200A+7!, PSJ200A+15!*, PSJ200A+16, PSJ200A+20!, 201+2*, 201+3, 201+4
XMDUZ M+3*, M+6!
XMSUB M+2*, M+6!
XMTEXT M+2*, M+6!
XMY M+2!
XMY( M+2*
>> Y 201+2, 201+3
>> ZTDESC PSJ200A+21*
>> ZTDTH PSJ200A+22*
>> ZTIO PSJ200A+21*, SEARCH+12*
>> ZTRTN PSJ200A+21*
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 |  Local Variables |  All