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

Package: Lab Service

Routine: LRCAPD


Information

LRCAPD ;SLC/AM/DALOI/FHS - WORKLOAD CODE LIST REPORT;1/16/91 15:34

Source Information

Source file <LRCAPD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DQ ;
START ;
NLTPRT
PRNT ;
PCC ;
PCC2 ;
PCC3 ;
HEAD ;
HEAD2 ;
HEAD3 ;
NAME ;
ERR
PAUSE ;
CLEAN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"I will produce a list of WKLD codes in your file 60 "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!?10,"Report Queued to "_ION,!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!?5,"NONE",!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NLTPRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?5,"National VA Lab Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),!
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?15
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: "[ CPT ",N," ] "
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: ?5,"Result NLT Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),!
  • Line Location: PRNT+13
Function Call: WRITE
  • Prompt: ?15,"Verify",!
  • Line Location: PRNT+16
Function Call: WRITE
  • Prompt: ?15,"Accession",!
  • Line Location: PRNT+22
Function Call: WRITE
  • Prompt: ?15,"Sample",!
  • Line Location: PRNT+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC+5
Function Call: WRITE
  • Prompt: ?15,"Verify",!
  • Line Location: PCC+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC2+5
Function Call: WRITE
  • Prompt: ?15,"Accession",!
  • Line Location: PCC2+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC2+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PCC3+5
Function Call: WRITE
  • Prompt: ?15,"Sample",!
  • Line Location: PCC3+5
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),!
  • Line Location: PCC3+7
Function Call: WRITE
  • Prompt: !!?21,"LIST OF FILE 60 WKLD CODES",?70,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"IEN",?15,"WKLD Code [TYPE] ",?50,"WKLD Number",?73,"X",!,LRLINE,!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !!?10,"Alphabetical Listing of WKLD Codes Defined"
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: ?72,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD2+4
Function Call: WRITE
  • Prompt: !!?10,"Alphabetical Listing of NLT or Result NLT Codes Defined"
  • Line Location: HEAD3+3
Function Call: WRITE
  • Prompt: ?72,"Page ",$J(LRPAG,3),!
  • Line Location: HEAD3+4
Function Call: WRITE
  • Prompt: !?10,$C(7)," Error in WKLD Code pointer (",$G(LRCC),") ***** ",!
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: CLEAN+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