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

Package: Lab Service

Routine: LRACF


Information

LRACF ; IHS/DIR/FJE - FORCE PAGES TO FULL 10:10 ;

Source Information

Source file <LRACF.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^%DT  C^%DTC  YN^DICN  
Lab Service 1 IO^LRWU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAC FORCE  

Entry Points

Name Comments DBIA/ICR reference
FIND ;Since Major Header and Page number is unknown this subroutine
WARN
END
HDR
SPCM
WARN1
TEXT
IDT
HELP
PAGE
QUEUE
ENT
KILL
CHECK
MORE

External References

Name Field # of Occurrence
^%DT ENT+1
C^%DTC ENT+2
YN^DICN WARN1
IO^LRWU WARN1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option will identify patients who have been inactive for the specified",!,"period of time defined in the GRACE PERIOD FOR INACTIVITY field of the"
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !,"Laboratory Site file and force their lab data onto a permanent cumulative page,",!,"making the data eligible for archiving.",!
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !,"The parameter is set for ( ",+$P(^LAB(69.9,1,0),U,13)," ) days ",!
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !,"Are you sure you want to continue"
  • Line Location: WARN1+0
Function Call: WRITE
  • Prompt: !!,LRDFN,?10,LRNM
  • Line Location: KILL+2
Function Call: WRITE
  • Prompt: @IOF,!,?20,"***** INACTIVE PATIENTS FOR ARCHIVE*****",!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "LRDFN"_" "_"PATIENT NAME"_" "_"PAGE FORCED TO PERMANENT"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?57,LRTXT,!
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Yes' to continue, 'No' or '^' to exit"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] IDT
^LAB(64.5 - [#64.5] FIND+3, SPCM
^LAB(69.9 - [#69.9] WARN+2, ENT+2
^LAC("LGOT" KILL!
^LAC("LRAC" - [#64.7] KILL!
^LAC("LRKILL" KILL!
^LR - [#63] ENT+2, IDT, KILL+2*, CHECK, CHECK+1*, PAGE, FIND+2, FIND+4, SPCM
^LRO(68 - [#68] MORE!
^TMP($J KILL+2, KILL+3!, CHECK+1*

Label References

Name Line Occurrences
CHECK MORE
FIND PAGE
HDR ENT+2, KILL+1
HELP WARN1
IDT ENT+2
PAGE CHECK+1
SPCM FIND+3
TEXT KILL+2
WARN1 HELP

Naked Globals

Name Field # of Occurrence
^(0 ENT+2, IDT, CHECK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % WARN1*
>> %DT ENT+1*
>> DFN IDT*
DT ENT+2
>> I KILL+2*
IO ENT+1
IOF HDR
IOSL KILL+1
LRDAYS ENT+2*, END!, IDT
LRDFN ENT+2*, END!, IDT, MORE, KILL, KILL+2, CHECK, CHECK+1, PAGE, FIND+2
, FIND+4, SPCM
LRDPF END!, IDT*
LRFG WARN1+1*, ENT*, END!, KILL, KILL+3*, CHECK+1*
LRIDT END!, MORE*, CHECK, CHECK+1, PAGE, FIND+2
LRINO END!
>> LRMH FIND+3*, SPCM, SPCM+1
LRNM END!, IDT*, KILL+2
LROPG END!, MORE!, CHECK+1*, PAGE*
LRPG END!, MORE!, CHECK+1, PAGE*, FIND+4*, SPCM*, SPCM+1*
LRPGE END!, MORE!, CHECK+1, PAGE*
LRPL END!, PAGE*
>> LRSH FIND+3*, SPCM
LRSPCM END!, FIND+2*, SPCM
>> LRSPM1 SPCM*
LRSUB END!, MORE*, CHECK, FIND+3, SPCM
>> LRTSTS FIND+3*, SPCM
LRTXT END!, KILL+2*, TEXT
U QUEUE*, WARN+2, ENT*, ENT+2, IDT, CHECK+1, PAGE
>> X ENT+1*, ENT+2
>> X1 ENT+2*
>> X2 ENT+2*
>> ZTDESC WARN1+1*
>> ZTQUEUED ENT+1
>> ZTREQ ENT+1*
>> ZTRTN WARN1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All