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
Print Page as PDF
Routine: LR105PO

Package: Lab Service

Routine: LR105PO


Information

LR105PO ;DALISC/FHS - LR*5.2*105 POST INSTALL ROUTINE KIDS INSTALL"

Source Information

Source file <LR105PO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIS
BB ;G END ;Blood bank's multi-divisional test sites should uncomment this line.
END ;
STOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Option [LR WKLD CODE EDIT PRINT] was ",$S(X:"added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"^LAB(64.2) GLOBAL IS LOCKED BY ANOTHER USER",!,"DSS ACC suffix not added.",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !?5,"Not able to install new workload code.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!?5,"This new Workload Code Suffix has been added to ^LAB(64.2 ",!!
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!," The DIVISION #.16 field has been deleted from the BLOOD INVENTORY #65",!!
  • Line Location: BB+2
Function Call: WRITE
  • Prompt: !!,"Database Error",!?5,"Your system is missing the ^LRO(64.03) Global"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Preparing to purge data from WKLD LOG FILE (#64.03)",80)
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Purging data <Please wait> ",80),!
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"Turning [OFF] COLLECT WKLD LOG FILE (#616) field in LABORATORY SITE (#69.9) file",!!
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !?5,"Laboratory DSS Site Preparation completed",!!
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !!!,$$CJ^XLFSTR("Unable to Lock the ^LRO(64.03) Global - Contact the CS Clin2",80)
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("for assistance. The Patch install is complete but data in file #64.03",80)
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("was NOT PURGED.",80),!
  • Line Location: END+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Post install completed",80),!!
  • Line Location: STOP+2
Info |  Source |  Entry Points |  Interaction Calls