Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIE  
Kernel 1 $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRCAPF  

Entry Points

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

External References

Name Field # of Occurrence
^DIC DOC+7, ASK+1
YN^DICN AD+1, PURG, OK+2
^DIE STUF+4
$$CJ^XLFSTR DOC+1, DOC+2, DOC+3, DOC+4, DOC+5, DOC+6, ASK+3, OK, OK+1, OK+3
, STUF+5, STUF+6

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
  • Prompt: "Multiply Factor: 1 // "
  • Formatting: !!?10
  • Timeout: DTIME
  • Variable: X
  • Line Location: MULT+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Enter a whole number between 1-20",!
  • Line Location: MULT+4
Function Call: READ
  • Timeout: 2
  • Variable: X
  • 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
  • Timeout: 1
  • Variable: LRSTOP
  • 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
  • Timeout: 1
  • Variable: LRSTOP
  • 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
  • Timeout: DTIME
  • Variable: LRDEL
  • 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
Routine Call
  • DIE
  • Line Location:
    • STUF+4
Routine Call
  • DIC
  • Line Location:
    • DOC+7
    • ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61.2 - [#61.2] Classic Fileman Calls
^LAM - [#64] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT( STUF
^LAB(61.2 - [#61.2] STUF+1!, STUF+2, STUF+3
^LRO(61.2 EN+1, END+1

Label References

Name Line Occurrences
AD AD+1
ASK DEL+1
DEL AD+1, DEL+1, DEL+2, DEL+3, DEL+4
EN OK+2
END DOC+7, ASK+2, AD+1, PURG, MULT+2, OK+2, OK+3, STUF+7, DEL+1
MULT MULT+3
OK MULT+1
PURG ASK+3
SHOW AD, DEL+1, DEL+2, DEL+3

Naked Globals

Name Field # of Occurrence
^(0 STUF+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AD+1*, PURG*, OK+2*
CNT SHOW+2!*, END+3!
CNT( SHOW+2*, DEL+3, DEL+4!
DA STUF!*, STUF+1, STUF+2, STUF+3, END+3!
DIC DOC+7!*, ETIO+1!, ASK!, ASK+1*, STUF+4!*, END+3!
DIC("A" DOC+7*, ASK+1*
DIC("S" DOC+7*
DIC(0 DOC+7*, ASK+1*, STUF+4*
DIE STUF+4!*, END+3!
DLAYGO STUF+4*!, END+3!
DR STUF+4!*, END+3!
DR(2 STUF+4*
DTIME MULT+2, DEL+1
>> DTOUT ASK+2
>> DUOUT ASK+2
>> I SHOW+2*
IOM DOC+1, DOC+2, DOC+3, DOC+4, DOC+5, DOC+6, ASK+3, OK, OK+1, OK+3
, STUF+5, STUF+6
LRCAPX ETIO+1!*, END+3!
LRCAPX( ASK+1*, STUF+3, SHOW+2, DEL+4!
LRCAPX(0 ASK+3, MULT+1, OK, OK+1, STUF+2
>> LRDBUG END+2
LRDEL DEL+1*, DEL+2, DEL+3, DEL+4, END+3!
LRI STUF+3*, END+3!
LRMULT MULT+5*, END+3!
LRPURG PURG!*, OK+1, STUF+1, END+3!
LRS DOC+7*, STUF, END+3!
LRSTOP STUF, STUF+1*, STUF+3*, STUF+5, STUF+6, END+3!
LRX STUF+3*, END+3!
STOP STUF!
U ASK+1, MULT+2, STUF+1, STUF+2, STUF+3, SHOW+2
X MULT+2*, MULT+3, MULT+4!, MULT+5, OK+3*
>> Y DOC+7, ASK+1
>> Y(0 ASK+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All