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

Package: Adverse Reaction Tracking

Routine: GMRAUTL1


Information

GMRAUTL1 ;HIRMFO/WAA-ALLERGY UTILITIES ;12/04/92

Source Information

Source file <GMRAUTL1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  $$FMTE^XLFDT  $$PROD^XUPROD  
VA Fileman 3 WP^DDBR  $$TEST^DDBRT  ^DIR  
Adverse Reaction Tracking 1 (CLOSE,DEV)^GMRAUTL  
Registration 1 ($$TESTPAT,1,KVAR)^VADPT  

Caller Graph

Caller Graph Total: 28

Package Total Caller Graph
Adverse Reaction Tracking 28 GMRA DOC REF-CARD  GMRACMR4  GMRADSP3  GMRADSP5  GMRAEAB  GMRAEF  GMRAEF2  GMRAFDA3  
GMRAGUI1  GMRAMCB  GMRAOR5  GMRAPET0  GMRAPFT  GMRAPHR0  GMRAPL  GMRAPNA  
GMRAPST1  GMRAPST2  GMRAPST3  GMRAPST4  GMRAPST5  GMRAPST6  GMRAPST7  GMRAPT  
GMRAPTB  GMRAPU  GMRAROBS  GMRAVAB  

Entry Points

Name Comments DBIA/ICR reference
PR ; This is a print utility for the reference card for IRM
VAD(DFN,DAT,LOC,NAM,SEX,SSN,RB,PRO,PID) ; Call to VADPT
; This call is a generic call to 1^VADPT
; Input:
; 1 DFN = Patient Internal entry number in the Patient File
; 2 DAT = Date for lookup
STPCK() ; This is to check to see if the user wanted to stop the print
LP1 ; Main loop
DATE(DATE) ; This Ex-Function will date the date from the DATE
; and convert it to the old DD("DD") style format
; it returns the answer in DATE
PRDTST(GMRADFN) ; GMRA*4*33 - Remove Test Patients from Live Reports
; This function will return 0 if the patient should not print on the report, and 1 if the patient
; should appear on the report. This function will allow all patients to print on the report if the
; report is run in a test environment.
BR ; This is a online reference card entry point
PR1 ; Print out the card

External References

Name Field # of Occurrence
^%ZTLOAD PR+4
$$S^%ZTLOAD STPCK+2
WP^DDBR BR+8
$$TEST^DDBRT BR+1
^DIR LP1+5
CLOSE^GMRAUTL LP1+9
DEV^GMRAUTL PR+1
$$TESTPAT^VADPT PRDTST+7
1^VADPT VAD+17
KVAR^VADPT VAD+21
$$FMTE^XLFDT DATE+4
$$PROD^XUPROD PRDTST+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"*** OUTPUT STOPPED AT USER'S REQUEST ***"
  • Line Location: STPCK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PR1+2
Routine Call
  • DIR
  • Line Location:
    • LP1+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMRD(120.87 - [#120.87] WP^DDBR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(120.87 - [#120.87] BR+7, PR1+3, LP1+1, LP1+2

Label References

Name Line Occurrences
PR1 PR+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DAT VAD~, VAD+16
DATE DATE~, DATE+4, DATE+5*, DATE+6
DFN VAD~, VAD+15*
DIR LP1+5~
DIR(0 LP1+5*
DIROUT LP1+5~
DIRUT LP1+5~
DTOUT LP1+5~
DUOUT LP1+5~
GMRACD PR1+1~, PR1+3*, LP1+1, LP1+2
GMRADFN PRDTST~, PRDTST+5, PRDTST+7
GMRALN PR1+1~, PR1+4*, LP1+1*, LP1+2
GMRAOUT PR+1*, PR1+1~, PR1+4*, LP1+1, LP1+5*
GMRAZIS PR+1!
IO PR+7
IO("Q" PR+2
IO(0 PR+7
IOF PR1+2, LP1+5, LP1+6
IOSL LP1+4
IOST PR1+2, LP1+5
LOC VAD~, VAD+18*
NAM VAD~, VAD+18*
PID VAD~, VAD+19*
>> POP PR+1
PRO VAD~, VAD+20*
RB VAD~, VAD+19*
SEX VAD~, VAD+18*
SSN VAD~, VAD+19*
U VAD+18, VAD+19, VAD+20
VA VAD+21!
VA("PID" VAD+19
>> VADM(1 VAD+18
>> VADM(2 VAD+19
>> VADM(5 VAD+18
>> VAIN(2 VAD+20
>> VAIN(4 VAD+18
>> VAIN(5 VAD+19
VAINDT VAD+16*!
VAROOT VAD+21!
X BR+6~, BR+7*, BR+8, PR1+1~, LP1+2*, LP1+3
Y DATE+3~, DATE+4*, DATE+5
>> ZTDESC PR+4*
ZTREG STPCK+3!
>> ZTRTN PR+3*
>> ZTSAVE("GMAEN" PR+3*
>> ZTSAVE("GMAST" PR+3*
>> ZTSAVE("GMRAOUT" PR+3*
>> ZTSK PR+5
>> ZTSTOP STPCK+1*, STPCK+3*, STPCK+5
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