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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRACSUM

Package: Lab Service

Routine: LRACSUM


Information

LRACSUM ; IHS/DIR/AAB - INDIVIDUAL PATIENT SUMMARY. 4/17/91 14:30 ; [ 07/08/1998 3:17 PM ]

Source Information

Source file <LRACSUM.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 7 END^LRACM  (LRCALE,LRIDT,MICRO)^LRACSUM1  ^LRACSUM3  ^LRDPA  ^LRLTR  ^LRWU3  ($$Y2K,DASH,DT,PT)^LRX  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 1 BLRALFN  
Lab Service 1 LRTASK DISCHARGE  

Entry Points

Name Comments DBIA/ICR reference
A
SET
END
LIST
WORK
MANUAL
OUT
LRLLOC
DFN
QUE ;S %ZIS="QM" D ^%ZIS Q:POP I $D(IO("Q")) K IO("Q") S:'$D(ZTRTN) ZTRTN="LRLLOC^LRACSUM" S ZTDESC="Patient lab summary" F I="%*","AGE","D*","LR*","PNM","SEX","SSN","U" S ZTSAVE(I)=""
DQ
FN
DIS

External References

Name Field # of Occurrence
^%DT DQ
^%ZIS QUE+1
^%ZISC END
^%ZTLOAD QUE+2
END^LRACM END
LRCALE^LRACSUM1 SET+2
LRIDT^LRACSUM1 LRLLOC+6
MICRO^LRACSUM1 LRLLOC+7
^LRACSUM3 LRLLOC+7
^LRDPA DFN, MANUAL+1
^LRLTR DIS
^LRWU3 MANUAL+1, MANUAL+2
$$Y2K^LRX A, A+1
DASH^LRX LIST+1
DT^LRX SET+1
PT^LRX SET+2, WORK+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: LRX
  • Line Location: MANUAL+0
Function Call: WRITE
  • Prompt: !!,"No In-patient stays for this patient"
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!?10,"ADMISSION DATE",?35,"DISCHARGE DATE"
  • Line Location: LIST+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?4,LRI,". ",?10,Y
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?35,Y
  • Line Location: A+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] WORK, A, A+1
^DGPM("AMV3" DIS, FN
^DGPM("ATID1" LIST+3, A
^DGPM("C" LIST
^DPT - [#2] WORK+1
^LAB(64.5 - [#64.5] SET
^LR - [#63] LRLLOC+1, SET+2
^TMP($J LRLLOC+5*, LRLLOC+6*, SET+1!

Label References

Name Line Occurrences
A LIST+3
DIS DQ+1, OUT+1
END DFN, DFN+1, MANUAL+2, MANUAL+3, MANUAL+4, DQ+1, OUT+1
FN DIS
LIST MANUAL+1, LIST+4
LRLLOC DFN+1, WORK+1, MANUAL+4
MANUAL MANUAL
OUT MANUAL+2
QUE DFN, MANUAL+2, MANUAL+3
SET LRLLOC+1
WORK FN

Naked Globals

Name Field # of Occurrence
^( LRLLOC+1
^("LR" WORK+1
^(0 WORK, A, A+1
^(1 SET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DQ*
>> %ZIS QUE+1*
>> DFN LRLLOC+5, WORK+1*, LIST, LIST+3, A
DIC DFN!, SET+1!, MANUAL!
>> DOB LRLLOC+5
DTIME MANUAL, LIST+4
HRCN QUE+2!, LRLLOC+3*, LRLLOC+5
>> I QUE+1*
>> II DIS*
IO DFN+1, DIS, MANUAL+4
IO("Q" QUE+1!
IOM LIST+1*
>> JJ FN*
>> K FN*
>> L LIST+2*, LIST+3*, A
LRBOT QUE+2!, SET*
LRCDT QUE+2!, SET+1*
LRDFN QUE+2!, LRLLOC+1, LRLLOC+5, LRLLOC+6, SET+2, WORK+1*, MANUAL+1
LRDIS DFN*, QUE+2!, MANUAL*, DQ*
>> LRDPF LRLLOC+5, SET+2*
>> LRDT0 SET+1
LREDT MANUAL+1, MANUAL+2!, MANUAL+3!, LIST+4!*
>> LREND DFN*, MANUAL*, MANUAL+1, MANUAL+2
>> LRF DIS, MANUAL+2*, DQ*
>> LRFD DIS*, FN
>> LRFN DIS*, FN*, WORK+1
>> LRI LIST+2*, A*, A+1
>> LRI( LIST+4, A*, A+1*
LRIDT DFN*, QUE+2!, WORK*, MANUAL+1*
>> LRIN DFN*, WORK*, MANUAL+1*
>> LRINN FN*, WORK
>> LRL DIS, MANUAL+2*, DQ*
>> LRLLOC LRLLOC+1*
>> LRLTR DIS*
LRNM QUE+2!, SET*
LROUT DFN*, QUE+2!, WORK*, MANUAL+1*
LRSDT MANUAL+1, MANUAL+2!, MANUAL+3!, LIST+4*
>> LRTD SET*
LRTNN QUE+2!, SET+2*
>> LRWRD LRLLOC+1
>> LRX MANUAL*, MANUAL+1, MANUAL+2
>> M LIST+3*
>> PNM LRLLOC+5
>> POP DFN, QUE+1, QUE+2*, MANUAL+2, MANUAL+3
U LRLLOC+5, SET, SET+2, LIST+4, A+1
>> X WORK*, MANUAL+1, DQ*, LIST+4*, A*
X2 DFN!
>> Y DFN, DQ, A*, A+1*
>> Z A*, A+1
ZTDESC QUE+1*, QUE+2!
ZTIO QUE+2!
>> ZTQUEUED LRLLOC
>> ZTREQ LRLLOC*
ZTRTN DFN!, QUE+1*, QUE+2!, MANUAL+2*!
ZTSAVE QUE+2!
ZTSAVE( QUE+1*
ZTSK DFN!, QUE+2, MANUAL+3!, OUT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All