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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRGARC0

Package: General Medical Record - Generator

Routine: GMRGARC0


Information

GMRGARC0 ;HIRMFO/RM-ARCHIVE/PURGE UTILITY FOR GMR TEXT FILE ;4/15/96

Source Information

Source file <GMRGARC0.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  SETUP^XQALERT  
VA Fileman 4 ^%DT  ^DIE  (,IX1)^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Generator 1 GMRG-PURGE PT DATA  

Entry Points

Name Comments DBIA/ICR reference
Q ; Clean up and exit
EN1 ; Entry from the option Purge GMR Text File Data [GMRG-PURGE PT DATA]
UNL ; Unlock ^GMRD(124.1,1,"PURGE") and go to Q
START ; Enter here from queued job

External References

Name Field # of Occurrence
^%DT EN1+6
^%ZISC Q+7
^%ZTLOAD EN1+12
$$S^%ZTLOAD START+7
^DIE START+9
^DIK START+5, START+6
IX1^DIK EN1+15
^DIR EN1+5, EN1+9, EN1+11
$$FMTE^XLFDT EN1+7, Q+5
SETUP^XQALERT Q+4, Q+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SOMEONE ELSE IS RUNNING THE PURGE OPTION, TRY AGAIN LATER!!"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,"THE GMR TEXT FILE PURGE IS ALREADY RUNNING, TRY AGAIN LATER!!"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"Job not queued, please try again..."
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !!,"Job queued as task #"_ZTSK
  • Line Location: EN1+13
Routine Call
  • DIE
  • Line Location:
    • START+9
Routine Call
  • DIR
  • Line Location:
    • EN1+5
    • EN1+9
    • EN1+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(124.1 - [#124.1] Classic Fileman Calls
^GMR(124.3 - [#124.3] Classic Fileman Calls
^NURSC(216.8 - [#216.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(124.3 - [#124.3] START+4
^GMRD(124.1 - [#124.1] EN1+2, EN1+3, EN1+14*, UNL+1
^NURSC(216.8 - [#216.8] START+5

Label References

Name Line Occurrences
Q EN1+2, UNL+2
UNL EN1+3, EN1+5, EN1+6, EN1+9, EN1+11, EN1+12, EN1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN1+6*, Q+7!
DA EN1+15*, START+5*, START+6*, START+9*, Q+7!
DIE START+9*, Q+7!
DIK EN1+15*, START+5*, START+6*, Q+7!
DIK(1 EN1+15*
DIR EN1+4!, EN1+5!, EN1+9!, EN1+11!, Q+7!
DIR("?" EN1+4*, EN1+8*, EN1+10*
DIR("A" EN1+5*, EN1+9*, EN1+11*
DIR("B" EN1+10*
DIR(0 EN1+5*, EN1+9*, EN1+11*
DR START+9*, Q+7!
DUZ Q+4, Q+5
GMRGDATE START+4*, Q+7!
GMRGPDA START+4*, START+5, START+6, Q+7!
GMRGPMO EN1+6*, Q+7!
GMRGPURG EN1+7*, START+4, Q+5, Q+7!
GMRGPURG(0 EN1+7*, EN1+9
X EN1+6*, Q+7!
XQA Q+3~
XQA( Q+4*, Q+5*
XQA("G.NURS-ADP" Q+5*
XQADATA Q+3~
XQAFLAG Q+3~
XQAID Q+3~
XQAMSG Q+3~, Q+4*, Q+5*
XQAOPT Q+3~
XQAROU Q+3~
Y EN1+5, EN1+6, EN1+7, EN1+9, EN1+11, Q+7!
>> ZTDESC EN1+12*
>> ZTIO EN1+12*
>> ZTQUEUED Q+1
>> ZTREQ Q+2*
>> ZTRTN EN1+12*
>> ZTSAVE("GMRGPURG" EN1+12*
ZTSK EN1+12, EN1+13, EN1+14, EN1+16!
>> ZTSTOP START+4, START+7*, START+9, Q+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All