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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRAPF

Package: Lab Service

Routine: LRAPF


Information

LRAPF ;AVAMC/REG/WTY - CY/EM/SP RPT ;9/25/00

Source Information

Source file <LRAPF.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ($$CJ,$$TRIM)^XLFSTR  $$NAME^XUAF4  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Lab Service 9 LRAPPF1  LRAPPOW  LRAPT1  LRAPT2  LRSPRPT  LRSPRPT1  LRSPRPT2  LRSPRPTM  
LRSPT  

Entry Points

Name Comments DBIA/ICR reference
P
NAMER ;
W
F ;from LRSPRPT,LRSPRPT1, LRSPRPT2, LRSPRPTM

External References

Name Field # of Occurrence
$$GET1^DIQ NAMER+4, NAMER+5, NAMER+7, NAMER+8, NAMER+9, NAMER+13, NAMER+14, NAMER+16, NAMER+17, NAMER+18
, NAMER+23, NAMER+37, NAMER+39, NAMER+42
^DIR LRAPF+10
$$CJ^XLFSTR NAMER+29, NAMER+30, NAMER+32, NAMER+34, NAMER+47
$$TRIM^XLFSTR NAMER+46
$$NAME^XUAF4 NAMER+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPF+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LRAPF+14
Function Call: WRITE
  • Prompt: !?5,"MEDICAL RECORD |",?40,LRAA(1),?73,"Pg ",LRQ
  • Line Location: LRAPF+16
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: ?57,"(",$S($D(LRO):"End of report",1:"See next page"),")"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !,$G(LRPMD),?52,LRW(9),?55,"| Date ",$G(LRRC)
  • Line Location: F+5
Function Call: WRITE
  • Prompt: !,"ID:",SSN,?16,"SEX:",SEX," DOB:",DOB
  • Line Location: F+8
Function Call: WRITE
  • Prompt: !,"ID:",HRCN,?16,"SEX:",SEX," DOB:",DOB
  • Line Location: F+9
Function Call: WRITE
  • Prompt: " LOC:",$E(LRLLOC,1,20)
  • Line Location: F+11
Function Call: WRITE
  • Prompt: !
  • Line Location: F+12
Function Call: WRITE
  • Prompt: "ADM:",$P(LRADM,"@")
  • Condition for execution: $L(LRADM)
  • Line Location: F+12
Function Call: WRITE
  • Prompt: ?46,"PCP: "
  • Line Location: F+14
Function Call: WRITE
  • Prompt: !?30,"PATHOLOGY REPORT"
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,"Laboratory: ",LRQ(1)
  • Line Location: P+5
Function Call: WRITE
  • Prompt: ?(IOM-LENG2-1),ADESC
  • Line Location: P+6
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(STRN,IOM)
  • Line Location: NAMER+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STRA,IOM),!
  • Line Location: NAMER+30
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(STRN_" "_STRA,IOM),!
  • Line Location: NAMER+32
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR(STRN_" "_STRA,IOM),!
  • Line Location: NAMER+34
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(STRO,IOM),!
  • Line Location: NAMER+47
Routine Call
  • DIR
  • Line Location:
    • LRAPF+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Label References

Name Line Occurrences
NAMER F+16
P LRAPF+17
W LRAPF+15, LRAPF+18, F+3, F+6, P

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADESC P+1*, P+2, P+6, P+7!
>> AGE F+10
DIR LRAPF+9!
DIR(0 LRAPF+9*
>> DOB F+9
>> DTOUT LRAPF+11
DUZ(2 NAMER+4, NAMER+5, NAMER+7, NAMER+8, NAMER+9, NAMER+13, NAMER+14, NAMER+16, NAMER+17, NAMER+18
, NAMER+23, NAMER+24, NAMER+37, NAMER+39, NAMER+42
>> HRCN F+9
IOF LRAPF+12
IOM P+2, P+6, NAMER+28, NAMER+29, NAMER+30, NAMER+31, NAMER+32, NAMER+33, NAMER+34, NAMER+47
IOSL F+2
IOST LRAPF+8
LENG1 P+2*, P+3, P+7!
LENG2 P+2*, P+6, P+7!
LNSPCE P+2*, P+3, P+7!
>> LR("%" W
>> LR("F" LRAPF+8, LRAPF+12
>> LR("Q" LRAPF+8, LRAPF+11*, F+1
>> LR("W" F+3, F+7
>> LRAA(1 LRAPF+16
>> LRAC P+1
>> LRADM F+12
>> LRADX F+13
>> LRLLOC F+11
>> LRO F+4
>> LRP F+7
>> LRPMD F+5
>> LRPRAC F+15
>> LRPRAC(1 F+15
>> LRQ LRAPF+13*, LRAPF+16, LRAPF+17, P
>> LRQ(1 P+2, P+3*, P+5
>> LRQ(8 P+1
>> LRRC F+5
>> LRW(1 P+1
>> LRW(9 F+5
>> SEX F+9
STR NAMER+1~, NAMER+5*, NAMER+6, NAMER+14*, NAMER+15
STRA NAMER+1~, NAMER+4*, NAMER+6*, NAMER+7*, NAMER+8*, NAMER+9*, NAMER+12, NAMER+13*, NAMER+15*, NAMER+16*
, NAMER+17*, NAMER+18*, NAMER+20, NAMER+28, NAMER+30, NAMER+31, NAMER+32, NAMER+33, NAMER+34, NAMER+42*
, NAMER+43
STRN NAMER+1~, NAMER+23*, NAMER+24*, NAMER+26, NAMER+28, NAMER+29, NAMER+31, NAMER+32, NAMER+33, NAMER+34
, NAMER+37*, NAMER+38, NAMER+40, NAMER+41
STRO NAMER+1~, NAMER+36*, NAMER+40*, NAMER+41*, NAMER+43*, NAMER+44, NAMER+46*, NAMER+47
STRT NAMER+1~, NAMER+39*, NAMER+40, NAMER+41
U LRAPF+11
>> VADM(6 F+10
>> X LRAPF+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All