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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LR664L

Package: Lab Service

Routine: LR664L


Information

LR664L ; BPFO/DTG - LAB LOAD OF ^LAB FILE 66.4 FROM PATCH LR*5.2*468 ;02/10/2016

Source Information

Source file <LR664L.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 5 ^%ZTLOAD  $$DT^XLFDT  MES^XPDUTL  $$NS^XUAF4  $$KSP^XUPARAM  
Health Data and Informatics 3 EN^HDISVCMR  $$GETSTAT^HDISVF01  $$GETIEN^HDISVF09  
VA FileMan 3 ^DIC  FILE^DICN  ^DIE  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENA ; come here to file update
TDONE
NMAIL
LOUT
DONE ; final quit
CALL ; from task manager
HDIS ; do HDIS 'seeding'
PSTHALT(MSG) ; display error message
TGET
402 ;;S LRM="G.LMI@TOGUS.DOMAIN.EXT"
436 ;;S LRM="G.LMI@MONTANA.DOMAIN.EXT"
438 ;;S LRM="G.LMI@SIOUX-FALLS.DOMAIN.EXT"
508 ;;S LRM="G.LMI@ATLANTA.DOMAIN.EXT"
518 ;;S LRM="G.LMI@BEDFORD.DOMAIN.EXT"
520 ;;S LRM="G.LMI@BILOXI.DOMAIN.EXT"
521 ;;S LRM="G.LMI@BIRMINGHAM.DOMAIN.EXT"
523 ;;S LRM="G.LMI@BOSTON.DOMAIN.EXT"
529 ;;S LRM="G.LMI@BUTLER.DOMAIN.EXT"
538 ;;S LRM="G.LMI@CHILLICOTHE.DOMAIN.EXT"
540 ;;S LRM="G.LMI@CLARKSBURG.DOMAIN.EXT"
541 ;;S LRM="G.LMI@CLEVELAND.DOMAIN.EXT"
546 ;;S LRM="G.LMI@MIAMI.DOMAIN.EXT"
550 ;;S LRM="G.LMI@DANVILLE.DOMAIN.EXT"
552 ;;S LRM="G.LMI@DAYTON.DOMAIN.EXT"
554 ;;S LRM="G.LMI@DENVER.DOMAIN.EXT"
568 ;;S LRM="G.LMI@BLACK-HILLS.DOMAIN.EXT"
570 ;;S LRM="G.LMI@FRESNO.DOMAIN.EXT"
573 ;;S LRM="G.LMI@NORTH-FLORIDA.DOMAIN.EXT"
575 ;;S LRM="G.LMI@GRAND-JUNCT.DOMAIN.EXT"
589 ;;S LRM="G.LMI@KANSAS-CITY.DOMAIN.EXT"
590 ;;S LRM="G.LMI@HAMPTON.DOMAIN.EXT"
596 ;;S LRM="G.LMI@LEXINGTON.DOMAIN.EXT"
600 ;;S LRM="G.LMI@LONG-BEACH.DOMAIN.EXT"
607 ;;S LRM="G.LMI@MADISON.DOMAIN.EXT"
610 ;;S LRM="G.LMI@NORTHERN-INDIANA.DOMAIN.EXT"
612 ;;S LRM="G.LMI@MARTINEZ.DOMAIN.EXT"
619 ;;S LRM="G.LMI@CENTRAL-ALABAMA.DOMAIN.EXT"
626 ;;S LRM="G.LMI@TENNESSEEVALLEY.DOMAIN.EXT"
629 ;;S LRM="G.LMI@NEW-ORLEANS.DOMAIN.EXT"
631 ;;S LRM="G.LMI@NORTHAMPTON.DOMAIN.EXT"
637 ;;S LRM="G.LMI@ASHEVILLE.DOMAIN.EXT"
642 ;;S LRM="G.LMI@PHILADELPHIA.DOMAIN.EXT"
644 ;;S LRM="G.LMI@PHOENIX.DOMAIN.EXT"
646 ;;S LRM="G.LMI@PITTSBURGH.DOMAIN.EXT"
649 ;;S LRM="G.LMI@PRESCOTT.DOMAIN.EXT"
650 ;;S LRM="G.LMI@PROVIDENCE.DOMAIN.EXT"
657 ;;S LRM="G.LMI@ST-LOUIS.DOMAIN.EXT"
658 ;;S LRM="G.LMI@SALEM.DOMAIN.EXT"
662 ;;S LRM="G.LMI@SANFRANCISCO.DOMAIN.EXT"
667 ;;S LRM="G.LMI@SHREVEPORT.DOMAIN.EXT"
671 ;;S LRM="G.LMI@SAN-ANTONIO.DOMAIN.EXT"
672 ;;S LRM="G.LMI@SAN-JUAN.DOMAIN.EXT"
675 ;;S LRM="G.LMI@ORLANDO.DOMAIN.EXT"
676 ;;S LRM="G.LMI@TOMAH.DOMAIN.EXT"
678 ;;S LRM="G.LMI@TUCSON.DOMAIN.EXT"
687 ;;S LRM="G.LMI@WALLA-WALLA.DOMAIN.EXT"
405 ;;S LRM="G.LMI@WHITE-RIVER.DOMAIN.EXT"
442 ;;S LRM="G.LMI@CHEYENNE.DOMAIN.EXT"
459 ;;S LRM="G.LMI@HONOLULU.DOMAIN.EXT"
537 ;;S LRM="G.LMI@CHICAGO-WEST.DOMAIN.EXT"
583 ;;S LRM="G.LMI@INDIANAPOLIS.DOMAIN.EXT"
636 ;;S LRM="G.LMI@CENTRAL-PLAINS.DOMAIN.EXT"
648 ;;S LRM="G.LMI@PORTLAND.DOMAIN.EXT"
655 ;;S LRM="G.LMI@SAGINAW.DOMAIN.EXT"
664 ;;S LRM="G.LMI@SAN-DIEGO.DOMAIN.EXT"
668 ;;S LRM="G.LMI@SPOKANE.DOMAIN.EXT"
679 ;;S LRM="G.LMI@TUSCALOOSA.DOMAIN.EXT"
740 ;;S LRM="G.LMI@VALLEYCOASTALBEND.DOMAIN.EXT"
437 ;;S LRM="G.LMI@FARGO.DOMAIN.EXT"
509 ;;S LRM="G.LMI@AUGUSTA.DOMAIN.EXT"
564 ;;S LRM="G.LMI@FAYETTVL-AR.DOMAIN.EXT"
598 ;;S LRM="G.LMI@LITTLE-ROCK.DOMAIN.EXT"
603 ;;S LRM="G.LMI@LOUISVILLE.DOMAIN.EXT"
659 ;;S LRM="G.LMI@SALISBURY.DOMAIN.EXT"
663 ;;S LRM="G.LMI@PUGET-SOUND.DOMAIN.EXT"
504 ;;S LRM="G.LMI@AMARILLO.DOMAIN.EXT"
512 ;;S LRM="G.LMI@BALTIMORE.DOMAIN.EXT"
515 ;;S LRM="G.LMI@BATTLE-CREEK.DOMAIN.EXT"
548 ;;S LRM="G.LMI@WEST-PALM.DOMAIN.EXT"
586 ;;S LRM="G.LMI@JACKSON.DOMAIN.EXT"
674 ;;S LRM="G.LMI@CENTRAL-TEXAS.DOMAIN.EXT"
553 ;;S LRM="G.LMI@DETROIT.DOMAIN.EXT"
578 ;;S LRM="G.LMI@HINES.DOMAIN.EXT"
581 ;;S LRM="G.LMI@HUNTINGTON.DOMAIN.EXT"
593 ;;S LRM="G.LMI@LAS-VEGAS.DOMAIN.EXT"
673 ;;S LRM="G.LMI@TAMPA.DOMAIN.EXT"
757 ;;S LRM="G.LMI@COLUMBUS.DOMAIN.EXT"
358 ;;S LRM="G.LMI@MANILA.DOMAIN.EXT"
516 ;;S LRM="G.LMI@BAY-PINES.DOMAIN.EXT"
654 ;;S LRM="G.LMI@RENO.DOMAIN.EXT"
501 ;;S LRM="G.LMI@ALBUQUERQUE.DOMAIN.EXT"
519 ;;S LRM="G.LMI@BIG-SPRING.DOMAIN.EXT"
534 ;;S LRM="G.LMI@CHARLESTON.DOMAIN.EXT"
556 ;;S LRM="G.LMI@N-CHICAGO.DOMAIN.EXT"
557 ;;S LRM="G.LMI@DUBLIN.DOMAIN.EXT"
605 ;;S LRM="G.LMI@LOMA-LINDA.DOMAIN.EXT"
562 ;;S LRM="G.LMI@ERIE.DOMAIN.EXT"
580 ;;S LRM="G.LMI@HOUSTON.DOMAIN.EXT"
608 ;;S LRM="G.LMI@MANCHESTER.DOMAIN.EXT"
652 ;;S LRM="G.LMI@RICHMOND.DOMAIN.EXT"
653 ;;S LRM="G.LMI@ROSEBURG.DOMAIN.EXT"
460 ;;S LRM="G.LMI@WILMINGTON.DOMAIN.EXT"
620 ;;S LRM="G.LMI@MONTROSE.DOMAIN.EXT"
621 ;;S LRM="G.LMI@MTN-HOME.DOMAIN.EXT"
630 ;;S LRM="G.LMI@NY-HARBOR.DOMAIN.EXT"
506 ;;S LRM="G.LMI@ANN-ARBOR.DOMAIN.EXT"
463 ;;S LRM="G.LMI@ANCHORAGE.DOMAIN.EXT"
526 ;;S LRM="G.LMI@BRONX.DOMAIN.EXT"
539 ;;S LRM="G.LMI@CINCINNATI.DOMAIN.EXT"
618 ;;S LRM="G.LMI@MINNEAPOLIS.DOMAIN.EXT"
692 ;;S LRM="G.LMI@WHITE-CITY.DOMAIN.EXT"
502 ;;S LRM="G.LMI@ALEXANDRIA.DOMAIN.EXT"
585 ;;S LRM="G.LMI@IRON-MTN.DOMAIN.EXT"
666 ;;S LRM="G.LMI@SHERIDAN.DOMAIN.EXT"
693 ;;S LRM="G.LMI@WILKES-BARRE.DOMAIN.EXT"
756 ;;S LRM="G.LMI@EL-PASO.DOMAIN.EXT"
613 ;;S LRM="G.LMI@MARTINSBURG.DOMAIN.EXT"
623 ;;S LRM="G.LMI@MUSKOGEE.DOMAIN.EXT"
632 ;;S LRM="G.LMI@NORTHPORT.DOMAIN.EXT"
660 ;;S LRM="G.LMI@SALT-LAKE.DOMAIN.EXT"
544 ;;S LRM="G.LMI@COLUMBIA-SC.DOMAIN.EXT"
549 ;;S LRM="G.LMI@DALLAS.DOMAIN.EXT"
565 ;;S LRM="G.LMI@FAYETTVL-NC.DOMAIN.EXT"
503 ;;S LRM="G.LMI@ALTOONA.DOMAIN.EXT"
640 ;;S LRM="G.LMI@PALO-ALTO.DOMAIN.EXT"
595 ;;S LRM="G.LMI@LEBANON.DOMAIN.EXT"
558 ;;S LRM="G.LMI@DURHAM.DOMAIN.EXT"
688 ;;S LRM="G.LMI@WASHINGTON.DOMAIN.EXT"
614 ;;S LRM="G.LMI@MEMPHIS.DOMAIN.EXT"
542 ;;S LRM="G.LMI@COATESVILLE.DOMAIN.EXT"
691 ;;S LRM="G.LMI@WEST-LA.DOMAIN.EXT"
531 ;;S LRM="G.LMI@BOISE.DOMAIN.EXT"
528 ;;S LRM="G.LMI@V02.DOMAIN.EXT"
695 ;;S LRM="G.LMI@MILWAUKEE.DOMAIN.EXT"
517 ;;S LRM="G.LMI@BECKLEY.DOMAIN.EXT"
561 ;;S LRM="G.LMI@EAST-ORANGE.DOMAIN.EXT"
689 ;;S LRM="G.LMI@WEST-HAVEN.DOMAIN.EXT"
635 ;;S LRM="G.LMI@OKLAHOMA.DOMAIN.EXT"
656 ;;S LRM="G.LMI@ST-CLOUD.DOMAIN.EXT"

External References

Name Field # of Occurrence
^%ZTLOAD CALL+4
^DIC EN+8
FILE^DICN EN+9, HDIS+6
^DIE NMAIL+18, NMAIL+35
EN^HDISVCMR HDIS+15
$$GETSTAT^HDISVF01 HDIS+11
$$GETIEN^HDISVF09 HDIS+13
$$SITE^VASITE EN+3, TDONE+1
$$DT^XLFDT EN+2
MES^XPDUTL HDIS+14, PSTHALT+6
$$NS^XUAF4 EN+8
$$KSP^XUPARAM TDONE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7," DEFAULT INSTITUTION NOT SET. UPDATE NOT RUN"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,*7," DEFAULT INSTITUTION NOT FOUND IN FILE 4. UPDATE NOT RUN"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,*7," NOT FOUND"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,*7,"NOT ABLE TO CREATE RECORD FOR ",D
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,*7," 66.4 UPDATED"
  • Line Location: LOUT+0
Routine Call
  • DIC
  • Line Location:
    • EN+8
Routine Call
  • DIE
  • Line Location:
    • NMAIL+18
    • NMAIL+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRMLTF - [#66.3] Classic Fileman Calls
^LAB(66.4 - [#66.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] NMAIL+16
^LAB(66.4 - [#66.4] EN+7, NMAIL+15, NMAIL+37*
^LRMLTF - [#66.3] HDIS+3

Label References

Name Line Occurrences
DONE EN+4, EN+8, EN+10
ENA EN+8
HDIS LOUT+2
LOUT NMAIL+39
NMAIL TDONE, TDONE+1, TDONE+2, TDONE+5
PSTHALT HDIS+11, HDIS+14
TDONE ENA+4, ENA+5, ENA+6
TGET ENA+4, ENA+5, ENA+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+1~, TDONE+1*, NMAIL+16*, NMAIL+20*, NMAIL+21, NMAIL+25*, NMAIL+26, NMAIL+28*, NMAIL+29, DONE+2!
, HDIS+1~, HDIS+3*, HDIS+11*, HDIS+16!, TGET~*, TGET+1!
AA EN+1~, DONE+2!, TGET~*, TGET+1!
B EN+1~, NMAIL+16*, DONE+2!, HDIS+1~, HDIS+16!
C EN+1~, TDONE+2*, TDONE+4, DONE+2!, HDIS+1~, HDIS+16!
D EN+1~, EN+10, DONE+2!
DA EN+1~, ENA+1*, NMAIL+17*, NMAIL+34*, NMAIL+37, DONE+2!, HDIS+4~, HDIS+7!
DIC EN+1~, EN+8*, EN+9*, DONE+2!, HDIS+4~, HDIS+6*, HDIS+7!
DIC(0 EN+8*, EN+9*, HDIS+6*
DIE EN+1~, NMAIL+17*, NMAIL+34*, DONE+2!
DOMAIN HDIS+1~, HDIS+10*, HDIS+13, HDIS+14, HDIS+16!
DOMPTR HDIS+1~, HDIS+13, HDIS+14, HDIS+15, HDIS+16!
DR EN+1~, ENA+1*, TDONE*, TDONE+4*, NMAIL+1*, NMAIL+3*, NMAIL+5*, NMAIL+7*, NMAIL+9*, NMAIL+11*
, NMAIL+13*, NMAIL+16*, NMAIL+18*, NMAIL+21*, NMAIL+23*, NMAIL+26*, NMAIL+29*, NMAIL+31*, DONE+2!
DT EN+2*
E EN+1~, EN+7*, EN+8, DONE+2!
FIL HDIS+1~, HDIS+10*, HDIS+11, HDIS+15, HDIS+16!
HDIMSG HDIS+1~, HDIS+16!, PSTHALT+6
HDIMSG(1 PSTHALT+1*
HDIMSG(2 PSTHALT+2*
HDIMSG(3 PSTHALT+3*
HDIMSG(4 PSTHALT+4*
HDIMSG(5 PSTHALT+5*
INS HDIS+4~, HDIS+5*, HDIS+6, HDIS+7!
LRM EN+1~, ENA+3*, TDONE, TDONE+4*, DONE+2!
LRMS EN+1~, TDONE*, TDONE+4*, NMAIL+37, DONE+2!
LRN EN+1~, NMAIL*, NMAIL+1, DONE+2!
LRNT EN+1~, ENA+1*, NMAIL+15, NMAIL+17, NMAIL+34, DONE+2!
MSG HDIS+1~, HDIS+11*, PSTHALT~, PSTHALT+2
NITM HDIS+4~, HDIS+6*, HDIS+7!
TMP HDIS+1~, HDIS+13*, HDIS+16!
U EN+2*, EN+3, EN+8, EN+10, NMAIL+16, HDIS+6, HDIS+11
WB EN+1~, EN+3*, EN+4, EN+7, EN+8, EN+9, ENA+4, ENA+5, ENA+6, DONE+2!
WE EN+1~, EN+8*, DONE+2!
X EN+1~, EN+8*, EN+9*, DONE+2!, HDIS+6*
XUMF HDIS+4~, HDIS+6*, HDIS+7!
Y EN+1~, EN+8, EN+10, ENA+1, DONE+2!
ZTDESC CALL+1~, CALL+2*, CALL+5!
>> ZTQUEUED DONE+1
>> ZTREQ DONE+1*
ZTRTN CALL+1~, CALL+3*, CALL+5!
ZTSAVE CALL+1~, CALL+5!
ZTSAVE("LR*" CALL+3*

Marked Items

Name Field # of Occurrence
$T(@WB TGET
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All