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

Package: Lab Service

Routine: LRAPTT


Information

LRAPTT ;DALOI/STAFF - TURNAROUND TIME PATH ;09/09/11 11:39

Source Information

Source file <LRAPTT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for TAT report setup
QUE ;
OUT ;
N ;
B ;
I ;
L ;
G ;
S ;
A ;
D ;
SPECTOT ; Print specimen totals section
PROCTOT ; Print procedure totals section
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"If '#', '*' or '?' is after Acc # then demographic data is in file indicated:",!?7,"# = Referral file * = Research file ? = Other file listed below"
  • Line Location: QUE+10
Function Call: WRITE
  • Prompt: !?6,"F= FULL AUTOPSY H= HEAD ONLY T= TRUNK ONLY O=OTHER LIMITATION"
  • Line Location: QUE+12
Function Call: WRITE
  • Prompt: !!,"Total cases:",$J(LRM,4)
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !?3,"Incomplete cases:",$J(X,4)
  • Condition for execution: X
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !?3,"Complete cases:",$J(LRF,4)
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !,$J(LRZ,5),?5,$P(Y,U,8),?6,$P(Y,U,9),?8,$P(Y,U),?19,$E($P(Y,U,2),1,20),?40,$P(Y,U,3),?46,$P(Y,U,5),?51,$P(Y,U,4),?62,$J($P(Y,U,6),3),?66,$E($P(Y,U,7),1,13)
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !!,$$LJ^XLFSTR(LRSHDR,LRHLEN,"."),": ",$J(LRCNT,5)
  • Line Location: SPECTOT+9
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: SPECTOT+13
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: SPECTOT+17
Function Call: WRITE
  • Prompt: !,$E(LRX,1,(LRHLEN))
  • Line Location: SPECTOT+18
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRX,LRHLEN,"."),": ",$J(LRSPEC(LR61),5)
  • Line Location: SPECTOT+19
Function Call: WRITE
  • Prompt: !,"T-",$P(LR61(0),"^",2)," (SNM)"
  • Line Location: SPECTOT+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRPSNM=2
  • Line Location: SPECTOT+22
Function Call: WRITE
  • Prompt: " / "
  • Condition for execution: LRPSNM=3
  • Line Location: SPECTOT+22
Function Call: WRITE
  • Prompt: $P(^LAB(61,LR61,"SCT"),"^")," (SCT)"
  • Line Location: SPECTOT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: SPECTOT+23
Function Call: WRITE
  • Prompt: !!,$$LJ^XLFSTR(LRSHDR,LRHLEN,"."),": ",$J(LRCNT,5)
  • Line Location: SPECTOT+30
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: SPECTOT+33
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: SPECTOT+37
Function Call: WRITE
  • Prompt: !,$E(LRX,1,(LRHLEN))
  • Line Location: SPECTOT+38
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRX,LRHLEN,"."),": ",$J(LRSPECI(LR61),5)
  • Line Location: SPECTOT+39
Function Call: WRITE
  • Prompt: !,"T-",$P(LR61(0),"^",2)," (SNM)"
  • Line Location: SPECTOT+41
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRPSNM=2
  • Line Location: SPECTOT+42
Function Call: WRITE
  • Prompt: " / "
  • Condition for execution: LRPSNM=3
  • Line Location: SPECTOT+42
Function Call: WRITE
  • Prompt: $P(^LAB(61,LR61,"SCT"),"^")," (SCT)"
  • Line Location: SPECTOT+42
Function Call: WRITE
  • Prompt: !
  • Line Location: SPECTOT+43
Function Call: WRITE
  • Prompt: !!,$$LJ^XLFSTR(LRSHDR,LRHLEN,"."),": ",$J(LRCNT,5)
  • Line Location: PROCTOT+9
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: PROCTOT+13
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: PROCTOT+17
Function Call: WRITE
  • Prompt: !,$E(LRX,1,(LRHLEN))
  • Line Location: PROCTOT+18
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRX,LRHLEN,"."),": ",$J(LRPROC(LR615),5)
  • Line Location: PROCTOT+19
Function Call: WRITE
  • Prompt: !,"P-",$P(LR615(0),"^",2)," (SNM)"
  • Line Location: PROCTOT+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRPSNM=2
  • Line Location: PROCTOT+22
Function Call: WRITE
  • Prompt: " / "
  • Condition for execution: LRPSNM=3
  • Line Location: PROCTOT+22
Function Call: WRITE
  • Prompt: $P(^LAB(61.5,LR615,"SCT"),"^")," (SCT)"
  • Line Location: PROCTOT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCTOT+23
Function Call: WRITE
  • Prompt: !!,$$LJ^XLFSTR(LRSHDR,LRHLEN,"."),": ",$J(LRCNT,5)
  • Line Location: PROCTOT+30
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: PROCTOT+33
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRSHDR,LRHLEN,".")," (cont'd)"
  • Line Location: PROCTOT+37
Function Call: WRITE
  • Prompt: !,$E(LRX,1,(LRHLEN))
  • Line Location: PROCTOT+38
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(LRX,LRHLEN,"."),": ",$J(LRPROCI(LR615),5)
  • Line Location: PROCTOT+39
Function Call: WRITE
  • Prompt: !,"P-",$P(LR615(0),"^",2)," (SNM)"
  • Line Location: PROCTOT+41
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRPSNM=2
  • Line Location: PROCTOT+42
Function Call: WRITE
  • Prompt: " / "
  • Condition for execution: LRPSNM=3
  • Line Location: PROCTOT+42
Function Call: WRITE
  • Prompt: $P(^LAB(61.5,LR615,"SCT"),"^")," (SCT)"
  • Line Location: PROCTOT+42
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCTOT+43
Function Call: WRITE
  • Prompt: !!,"Count multiple procedure occurrence/case.: ",$S($P(LRPROC,"^",2):"YES",1:"NO")
  • Line Location: PROCTOT+45

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls
^LAB(61.5 - [#61.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call