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

Package: Lab Service

Routine: LRCAPF


Information

LRCAPF ;DALISC/FHS-STUFF WKLD CODE INTO FILE 60 61.2 62.07 ETC ;5/2/91 09:03

Source Information

Source file <LRCAPF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DOC ;
ETIO ;
ASK
AD
PURG
MULT ;
OK
STUF
SHOW ;
DEL ;
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing ^LRO(61.2) file ",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("You must have already defined and ran a search template for the",IOM)
  • Line Location: DOC+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ETIOLOGY FIELD (#61.2). This option will use the results of that search",IOM)
  • Line Location: DOC+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("and automatically stuff WKLD Codes for those organisms. If you wish to edit",IOM)
  • Line Location: DOC+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("a single organism, use FileMan enter/edit option.",IOM)
  • Line Location: DOC+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("This option will automatically add WKLD codes to your",IOM)
  • Line Location: DOC+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ETIOLOGY FILE (#61.2).",IOM),!!
  • Line Location: DOC+6
Function Call: WRITE
  • Prompt: !!,?10,"Select WKLD Code(s) to be added "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("No WKLD Codes Selected - Continue to purge existing codes. ",IOM),!,$C(7)
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!?10,"Wish to delete any selection(s) "
  • Line Location: AD+1
Function Call: WRITE
  • Prompt: !!,"Shall I purge already existing Wkld Codes "
  • Line Location: PURG+0
Function Call: READ
  • Formatting: !!?10
  • Prompt: "Multiply Factor: 1 // "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MULT+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Enter a whole number between 1-20",!
  • Line Location: MULT+4
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("PRESS RETURN TO STOP PROCESS",IOM),$C(7),!!
  • Line Location: OK+3
Function Call: READ
  • Variable: LRSTOP
  • Timeout: 1
  • Line Location: STUF+1
Function Call: WRITE
  • Prompt: !?5,"Purging WKLD Code(s) from ",$P($G(^LAB(61.2,DA,0)),U)
  • Line Location: STUF+1
Function Call: WRITE
  • Prompt: !,"Adding WKLD Codes to : ",$P(^(0),U)
  • Line Location: STUF+2
Function Call: READ
  • Variable: LRSTOP
  • Timeout: 1
  • Line Location: STUF+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: STUF+4
Function Call: WRITE
  • Prompt: !!?10,"You have selected ",!!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,CNT,?5,$P(LRCAPX(I),U,2),?20,$P(LRCAPX(I),U)
  • Line Location: SHOW+2
Function Call: READ
  • Variable: LRDEL
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!?20,"Positive number only ",$C(7)
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!?10,"Invalid Number Retry Please ",$C(7),!
  • Line Location: DEL+3

FileMan Files Accessed Via FileMan Db Call

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