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

Package: General Medical Record - Generator

Routine: GMRGRUT2


Information

GMRGRUT2 ;CISC/RM,RTK-GMRG ROUTINE UTILITIES ;8/23/93

Source Information

Source file <GMRGRUT2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
General Medical Record - Generator 2 PARST^GMRGRUT0  FITLINE^GMRGRUT1  
Kernel 1 ENDR^%ZISS  

Caller Graph

Caller Graph Total: 22

Package Total Caller Graph
Nursing Service 13 NURCAS1  NURCCPU0  NURCCPU1  NURCCPU2  NURCCPU3  NURCES1  NURCEVE0  NURCEVE1  
NURCEVP0  NURCPP1  NURCPP2  NURCPP9  NURCPPS2  
General Medical Record - Generator 9 GMRGED1  GMRGED4  GMRGED5  GMRGED6  GMRGED8  GMRGEDB  GMRGPUT0  GMRGRUT1  
GMRGRUT4  

Entry Points

Name Comments DBIA/ICR reference
Q1
SBR ;
PATDAT ; GIVEN GMRGPAT(X) AS "ALIST" ENTRIES FOR A PARTICULAR AGGY TERM
; AND GMRGND=TO AGGY TERM WHICH WE ARE LOOKING FOR IN "ALIST",
; AND GMRGPDA = THE ENTRY IN THE 124.3 FILE IN WHICH WE ARE LOOKING
; THIS FUNCTION RETURNS GMRGPRT=0 (NOT IN ARRAY),1 (IN ARRAY)
; AND GMRGPRT(0)=0TH NODE OF ENTRY IN 124.3, FILE
REMOVE ;
EN1 ;TO PRINT/CALCULTE AGGY TEXT FOR A PATIENT (DFN) AND GMR TEXT ENTRY
; (GMRGPDA) INCLUDES THE INTERNAL AND APPENDED TEXT
BRACK ;
HIOF ;
DEMPAT ; PRINT PATIENTS DEMOGRAPHIC DATA
HION ;

External References

Name Field # of Occurrence
ENDR^%ZISS EN1+21
PARST^GMRGRUT0 PATDAT+6
FITLINE^GMRGRUT1 EN1+32, EN1+34

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?($P(GMRGXPRT(1),"^"))
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: GMRGPLN(0)
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: !,?($P(GMRGXPRT(1),"^"))
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: GMRGPLN(0)
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: !!,GMRGLIN("*"),!
  • Line Location: DEMPAT+1
Function Call: WRITE
  • Prompt: "NAME: ",$E(GMRGVNAM,1,30),?39,"SSN: ",GMRGVSSN,?58,"DOB: ",GMRGVDOB
  • Line Location: DEMPAT+2
Function Call: WRITE
  • Prompt: !,"ADMISSION DATE: ",GMRGVADT,?39,"WARD: ",GMRGVWRD
  • Line Location: DEMPAT+3
Function Call: READ
  • Prompt: "Press return to continue "
  • Timeout: DTIME
  • Variable: X
  • Line Location: DEMPAT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" HION+1, HIOF+1
^GMR(124.3 - [#124.3] PATDAT+6, PATDAT+7

Label References

Name Line Occurrences
BRACK EN1+29
HIOF EN1+33, EN1+34
HION EN1+33, EN1+34
Q1 EN1+32
REMOVE EN1+25
SBR BRACK+2

Naked Globals

Name Field # of Occurrence
^(0 PATDAT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME DEMPAT+4
DX Q1+2!, HION+1*, HIOF+1*
DY Q1+2!, HION+1*, HIOF+1*
GMRG0 PATDAT+6*, PATDAT+8!
>> GMRG11 PATDAT+5*
>> GMRGIO("RVOF" EN1+21, EN1+22
>> GMRGIO("RVON" EN1+21, EN1+22
>> GMRGLEN EN1+32*, EN1+34*
>> GMRGLIN("*" DEMPAT+1, DEMPAT+4
GMRGND PATDAT+5, PATDAT+6*, PATDAT+7, PATDAT+8!
GMRGND(0 PATDAT+6*, PATDAT+7*
GMRGND(1 PATDAT+6*
>> GMRGOUT DEMPAT+4*
>> GMRGPAT( PATDAT+5
>> GMRGPDA PATDAT+6, PATDAT+7
GMRGPLN EN1+31*, EN1+34*, Q1, Q1+2!
GMRGPLN(0 EN1+33, EN1+34
GMRGPLN(1 EN1+34
GMRGPRT PATDAT+5!*, PATDAT+6*, PATDAT+7
GMRGPRT(0 PATDAT+5*, PATDAT+7*
>> GMRGTERM PATDAT+6
>> GMRGVADT DEMPAT+3
>> GMRGVAMV DEMPAT+3
>> GMRGVDOB DEMPAT+2
>> GMRGVNAM DEMPAT+2
>> GMRGVSSN DEMPAT+2
>> GMRGVWRD DEMPAT+3
GMRGXPRT EN1+20, EN1+24, EN1+26*, EN1+28, Q1!*, Q1+1!, BRACK+1, BRACK+2, SBR+1, SBR+2
GMRGXPRT("X" EN1+25*, EN1+31*, REMOVE+1, REMOVE+2*
GMRGXPRT("Y" REMOVE+1*, REMOVE+2
GMRGXPRT(0 EN1+20, EN1+30, SBR+1
GMRGXPRT(1 EN1+20*, EN1+21, EN1+22, EN1+23, EN1+32, EN1+33, EN1+34, Q1, SBR+1, SBR+2
, HION+1, HIOF+1
GMRGXPRT(2 EN1+24*, EN1+25, EN1+26, EN1+28*, EN1+30*, EN1+31, REMOVE+1, REMOVE+2*, BRACK+1*, SBR+1*
, SBR+2*
GMRGXPRT(3 EN1+34*, BRACK+2*, SBR+1, SBR+2
GMRGXPRT(4 EN1+22*, HION+1
GMRGXPRT(5 EN1+22*, HIOF+1
IOM EN1+20
IORVOFF EN1+22!
IORVON EN1+22!
>> X EN1+21*, DEMPAT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All