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
Print Page as PDF
Routine: LRARNPX

Package: Lab Service

Routine: LRARNPX


Information

LRARNPX ;SLC/MRH/FHS - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93

Source Information

Source file <LRARNPX.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DQ ;
QUE ;
; Task off JOB to convert file 63.9999
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
DISP ; to display to the user the tasked job descriptions and TASK
; numbers for the different conversion routines
WRAPUP ;

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 scheduled to run "
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(ZTSK("D")),2)_".",$C(7),!
  • Line Location: DISP+4
Info |  Source |  Entry Points |  Interaction Calls