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

Package: Lab Service

Routine: LR127PO


Information

LR127PO ;DALISC/FHS - LR*5.2*127 POST INSTALL ROUTINE KIDS INSTALL

Source Information

Source file <LR127PO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
STOP ;
CPT ;
MSG
END ;
LK ;
SUF
ADD ;
ERR ;
PURG ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$$CJ^XLFSTR("No data in file # 64.81 - No linking done.",80)
  • Line Location: STOP+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Starting CPT to NLT linking Standby",80),!
  • Line Location: STOP+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: CPT+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Database Upgrade Completed Sucessfully",80),!!
  • Line Location: CPT+5
Function Call: WRITE
  • Prompt: !?10," Database Upgrade Incomplete - Use FM to Print a Listing"
  • Line Location: CPT+6
Function Call: WRITE
  • Prompt: !,"of the LAB NLT/CPT CODES (#64.81) for a listing of errors",!!
  • Line Location: CPT+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PCE/VSIT ON (#615) field in LABORATORY SITE (#69.9) file",80)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("has been set to BOTH PCE/VSIT AND STOP CODES",80),!!
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You can use the [Edit or Print WKLD CODES] option for a printed list",80)
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("of linked CPT linked NLT codes.",80),!
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Post install completed",80),!!
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !!?5," The Laboratory LIM should use the National Laboratory File"
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !,"Menu [LR7O 60-64] to link Laboratory Test to WKLD CODES (#64) "
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: !,"This should be done before 10/1/96 to permit CPT codes to be"
  • Line Location: MSG+8
Function Call: WRITE
  • Prompt: !,"passed to the PCE package",!,$C(7),!
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !,"Error Processing WKLD CODE "_LRNLT_" Logged in "_LRIEN,!
  • Line Location: ERR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] Classic Fileman Calls
^LAB(64.81 - [#64.81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call