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

Package: Lab Service

Routine: LRCAPPH2


Information

LRCAPPH2 ;DALISC/FHS - CREATE OR MODIFY LAB LOCATIONS

Source Information

Source file <LRCAPPH2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIV ;
SCODE ;
DIS ;
CHK ;
LOADB
LOAD ;
SHOW
END ;
END0
DETAIL
DEND
ACC ;
44 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Not able to find 'LAB SERVICE' in your Package (#9.4) file.",80),!,$$CJ^XLFSTR("Contact your IRM Service !!",80),!!,$C(7)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("List of already defined Laboratory OOS Locations",80),!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$P(X,U),?32,$P($G(^DIC(4,+$P(X,U,4),99)),U),?40,$P($G(^DIC(40.7,+$P(X,U,7),0)),U,2)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NONE ARE CURRENTLY DEFINED",80)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("INSTALL PATCH LR*5.2*138",80),!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" You may define a new Laboratory OOS Location ",80),!
  • Line Location: DIV+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONCE DEFINED - IT CAN NOT BE DELETED",80),!
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: @IOF,!?20,LRNAME,!?5," This location is already defined ",!,$C(7)
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Load SD*5.3*63 Patch",80),!!
  • Line Location: LOAD+1
Function Call: WRITE
  • Prompt: !,"LROK = ",LROK
  • Line Location: LOAD+3
Function Call: WRITE
  • Prompt: !!?5,$P(LROK,U,2),!,"LOCATION NOT CREATED",!,$C(7)
  • Line Location: LOAD+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("LAB Location Added",80),!!
  • Line Location: LOAD+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR("Current Laboratory OOS Location",80),!
  • Line Location: ACC+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("For [ "_$P(Y,U,2)_" ] Accession Area ",80)
  • Line Location: ACC+7
Function Call: WRITE
  • Prompt: !?10,"NO SELECTION MADE ",!!
  • Line Location: ACC+10
Function Call: WRITE
  • Prompt: !?10,"DONE",!
  • Line Location: ACC+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
^LRO(68 - [#68] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call