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

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 (C,NOW)^%DTC  ^DIC  ^DIE  ^DIR  
Inpatient Medications 1 EN1^PSJHL2  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Registration 1 RESET^VALM4  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJI 200  

Entry Points

Name Comments DBIA/ICR reference
201
SEARCH ;
PRIV() ;
200()
M ; sends mail message when complete
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
A(LONG,SHORT,SHRINK)

External References

Name Field # of Occurrence
C^%DTC CONVERT+8
NOW^%DTC CONVERT+8
^%ZTLOAD PSJ200+24
^DIC 201+2
^DIE SEARCH+6
^DIR 201+3
EN1^PSJHL2 SEARCH+7
RESET^VALM4 A+5
^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: 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
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)
^PS(50.7 - [#50.7] CONVERT+12
^PS(52.6 - [#52.6] CONVERT+12
^PS(52.7 - [#52.7] CONVERT+12
^PS(55 - [#55] SEARCH+7, CONVERT+6, CONVERT+10, CONVERT+11, CONVERT+12*
^VA(200 - [#200] 201+3
^XTMP("PSJ NEW PERSON" PSJ200+5, PSJ200+11, PSJ200+16, SEARCH+2, SEARCH+4, SEARCH+8!, M+1
^XTMP("PSJ NEW1" PSJ200+18*, SEARCH+1, SEARCH+6, SEARCH+10!
^XUSEC("PSJI MGR" PRIV+1

Label References

Name Line Occurrences
$$200 PSJ200+17
$$PRIV PSJ200+8
201 201+3
CONVERT SEARCH+3
M SEARCH+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CONVERT+8
ADS CONVERT+7~, CONVERT+11*, CONVERT+12
ADS1 CONVERT+7~, CONVERT+11*
DA SEARCH+5!*, SEARCH+6!
DA(1 SEARCH+5*
DDRG CONVERT+7~
DFN CONVERT~, CONVERT+6, CONVERT+10, CONVERT+11, CONVERT+12
DIC 201!*, 201+2!
DIC("A" 201+1*
DIC(0 201*
DIE SEARCH+5!*, SEARCH+6!
>> DIR("A" 201+3*
>> DIR(0 201+3*
>> DR SEARCH+6*
DTOUT PSJ200+9!, 201!
DUOUT PSJ200+9!, PSJ200+16, 201!
DUZ PRIV+1, M+2
IOF PSJ200+10
LONG A~, A+2
ND CONVERT+7~, CONVERT+11*, CONVERT+12
ON CONVERT+7~, CONVERT+10*, CONVERT+11, CONVERT+12
ON1 CONVERT+7~, CONVERT+11*
PSGDT CONVERT+7~, CONVERT+8*, CONVERT+10
PSJ1 PSJ200+22!, SEARCH+1*, SEARCH+2, SEARCH+4, SEARCH+6, SEARCH+8, SEARCH+10, M+6!
PSJ1(1 M+3*
PSJ1(2 M+4*
PSJ1(3 M+4*
PSJ1(4 M+5*
PSJ1(5 M+6*
PSJ2 PSJ200+22!, SEARCH+2*, SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+7, SEARCH+8
PSJ3 PSJ200+22!, SEARCH+4*, SEARCH+5, SEARCH+7, SEARCH+8
PSJ4 PSJ200+22!
PSJB PSJ200+18*, PSJ200+19, PSJ200+22!
PSJBM A+2~*, A+3, A+4
PSJC PSJ200+22!, SEARCH+9*
PSJDFN PSJ200+22!
PSJL PSJ200+9!, PSJ200+11*, PSJ200+12, PSJ200+16*, PSJ200+18, PSJ200+22!, 201+1
PSJNUM PSJ200+22!
PSJORD PSJ200+22!
PSJPT PSJ200+9!, PSJ200+17!*, PSJ200+18, PSJ200+22!, 201+2*, 201+3, 201+4
PSOC SEARCH+7*, CONVERT+7~
SHORT A~, A+2
SHRINK A~, A+2
STAT CONVERT+7~
STPDT CONVERT+7~, CONVERT+10*
STS CONVERT+7~
TYPE CONVERT~, CONVERT+12
U CONVERT+12
>> VALM("BM" A+3, A+4*
>> VALM("LINES" A+4*
>> VALM("TM" A+4
>> VALMBCK A+3*
>> VALMCC A+5
>> VALMMENU A+2
X SEARCH+7*, CONVERT+7~, CONVERT+8
X1 CONVERT+7~, CONVERT+8*
X2 CONVERT+7~, CONVERT+8*
XMDUZ M+3*, M+6!
XMSUB M+2*, M+6!
XMTEXT M+2*, M+6!
XMY M+2!
XMY( M+2*
XX CONVERT+7~, CONVERT+11*, CONVERT+12*
>> Y 201+2, 201+3
>> ZTDESC PSJ200+23*
>> ZTDTH PSJ200+24*
>> ZTIO PSJ200+23*, SEARCH+11*
>> ZTRTN PSJ200+23*
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