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

Package: Lab Service

Routine: LRCAPFDS


Information

LRCAPFDS ;DALOI/FHS - EDIT ACTIVATED WKLD CODES BY WKLD LAB SECTION ;5/1/99

Source Information

Source file <LRCAPFDS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EDIT ;
ASK
ALL
LOOP ;
PRINT ;
DQ ;
END ;
HEAD ;
DIQ ;
LRSET ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !?5,"You have no Activated WKLD CODES ",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?5,"This option will allow you to Edit or Print WKLD CODES"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"EDITING",!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?5,"Nothing Selected ",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(" Database scan was negative.",80),!,$$CJ^XLFSTR(" No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",80),$C(7),!
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !,"STARTING LOOP ",!
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !!?5,"Nothing matches your criteria",!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"PRINT",!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!?10,"**** Report Not Queued ****",!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!?10," Database scan was negative.",!," No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",!
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Activated WKLD Codes",IOM),!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LRTIT,IOM),!,$$CJ^XLFSTR(LRDAT,IOM),!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIQ+1

FileMan Files Accessed Via FileMan Db Call

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