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

Package: Lab Service

Routine: LRNPXA


Information

LRNPXA ; IHS/DIR/FJE - NEW PERSON CONVERSION FOR ^LAR("Z" ; [ 1/23/93 ]

Source Information

Source file <LRNPXA.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 ($$CDHTFM,$$DDDATE,$$NOW)^LRAFUNC1  DEVICE^LRNPXA0  ($$PROV,OUT)^LRNPXA1  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRCHIVD  

Entry Points

Name Comments DBIA/ICR reference
DISP ; to display to the user the tasked job descriptions and TASK
; numbers for the different conversion routines
CH ; change pointers in CHEM HEM, TOX, RIA, SER, etc. subfile 63.999904
; sub("CH") Change REQUESTING PERSON field .1 pointer
; ^LAR("Z",LRDFN,"CH",LRIDT,"NPC")=1 Indicates this record has been
MI ; change pointers in MICROBIOLOGY subfile 63.999905
; sub("MI") Change PHYSICIAN field .07 pointer
; ^LAR("Z",LRDFN,"MI",LRIDT,"NPC")=1 Indicates this record has been
; converted to File 200. This node is used when restoring arc records.
; "NPC")=2 indicates record processed but no provider number
EN ;
QUE ;
; Task off JOB to convert file 63.9999
WRAPUP ;
DQ ;

External References

Name Field # of Occurrence
^%ZTLOAD QUE+4
$$CDHTFM^LRAFUNC1 DISP+4
$$DDDATE^LRAFUNC1 DISP+4
$$NOW^LRAFUNC1 DQ+7, DQ+11
DEVICE^LRNPXA0 EN+3
$$PROV^LRNPXA1 CH+12, MI+11
OUT^LRNPXA1 DQ+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,$C(7),"Please do ^XUP ",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!!!,$C(7),"Task # "_ZTSK,!,"with the description of '"_LRDSC_"'"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"has been schedlued to run "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(ZTSK("D")),2)_".",$C(7),!
  • Line Location: DISP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAR("Z" - [#63.9999] DQ+8, CH+7, CH+8, CH+9, CH+10*, CH+13*, MI+7, MI+8, MI+9, MI+10*
, MI+11*
^XTMP("LR52" DQ+5!, DQ+6*, DQ+10*
^XTMP("LR52TIME" DQ+5!, DQ+7*, DQ+11*

Label References

Name Line Occurrences
CH DQ+9
DISP QUE+4
MI DQ+9
QUE EN+4
WRAPUP EN+5, DQ+13

Naked Globals

Name Field # of Occurrence
^("NPC" CH+13*, MI+11*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% WRAPUP+1!
%X WRAPUP+1!
%Y WRAPUP+1!
%ZIS WRAPUP+1!
DIC WRAPUP+1!
DUZ EN+1
DUZ(0 EN+1
I WRAPUP+1!
LRAC EN+2~, WRAPUP+2!
LRD0 CH+9*, CH+12*, CH+13, WRAPUP+2!
LRD1 WRAPUP+2!
LRDSC EN+2~, QUE+3*, DISP+2, WRAPUP+2!
LRDT EN+2~, WRAPUP+3!
LRFILE DQ+2~, DQ+3*, DQ+5, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2!
LRIO EN+2~, EN+3, QUE+4, WRAPUP+2!
LRJOB EN+2~, DQ+3*, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2!
LRLST DQ+2~, DQ+8*, WRAPUP+2!
LRPRV CH+5~, CH+9*, CH+10, CH+11, CH+12, MI+5~, MI+9*, MI+10, MI+11, WRAPUP+2!
LRSB CH+5~, CH+12, MI+5~, MI+11, WRAPUP+3!
LRSB(0 CH+6*, MI+6*
LRSORT WRAPUP+3!
LRST DQ+3*, WRAPUP+3!
LRTSK DQ+2~, DQ+3*, WRAPUP+2!
LRZD0 EN+2~, DQ+2~, DQ+3*, DQ+8*, DQ+10, CH+7, CH+8, CH+9, CH+10, CH+13
, MI+7, MI+8, MI+9, MI+10, MI+11, WRAPUP+2!
LRZD1 CH+5~, CH+7*, CH+8, CH+9, CH+10, CH+13, MI+5~, MI+7*, MI+8, MI+9
, MI+10, MI+11, WRAPUP+2!
POP WRAPUP+1!
U DQ+11, CH+9, CH+12, MI+9, MI+11
X EN+2~, WRAPUP+1!
Y WRAPUP+1!
ZTDESC QUE+3*, WRAPUP+1!
ZTDTH DISP+5!, WRAPUP+1!
ZTIO QUE+2*, WRAPUP+1!
>> ZTQUEUED DQ+1
ZTRTN QUE+4*, WRAPUP+1!
ZTSAVE WRAPUP+1!
ZTSAVE("LRIO" QUE+4*
ZTSK EN+2~, DQ+3, DISP+2, DISP+5!, WRAPUP+1!
ZTSK("D" DISP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All