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 |  Local Variables |  All
Print Page as PDF
Routine: GMRASIG1

Package: Adverse Reaction Tracking

Routine: GMRASIG1


Information

GMRASIG1 ;HIRMFO/WAA-A/AR PATIENT SIGN OFF PART2 ;9/22/06 10:49

Source Information

Source file <GMRASIG1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Adverse Reaction Tracking 4 ENDPG^GMRADSP3  OUTPUT^GMRAPEM1  EN1^GMRAPET0  ALLSNG^GMRASIGN  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Adverse Reaction Tracking 1 GMRASIGN  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print out data to be signed off on
PNOTE ; Generate a Progress Note for a patient
ENCNT ; Count how many entries where selected and set up Sort order
PAGE ;PAGE
YNSO ;Select sign off for a patient

External References

Name Field # of Occurrence
^DIR YNSO+7
ENDPG^GMRADSP3 PAGE+2
OUTPUT^GMRAPEM1 PRINT+23
EN1^GMRAPET0 PNOTE+11
ALLSNG^GMRASIGN YNSO+9
$$FMTE^XLFDT PRINT+10, PRINT+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"ADVERSE REACTION",!,"----------------"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?12,"Obs d/t: ",$$FMTE^XLFDT($P(^GMR(120.85,$O(^GMR(120.85,"C",GMRAPA,0)),0),U))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: (GMRACNTT+1),") All of the above",!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: (GMRACNTT+2),") None of the above",!
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: @IOF,!,"Causative Agent Data edited this Session:"
  • Line Location: YNSO+1
Function Call: WRITE
  • Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+1,") All by itself."
  • Line Location: YNSO+11
Function Call: WRITE
  • Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+2,") None by itself."
  • Line Location: YNSO+12
Routine Call
  • DIR
  • Line Location:
    • YNSO+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] PRINT+8, PRINT+12, PRINT+14, PRINT+15, PNOTE+7
^GMR(120.85 - [#120.85] PRINT+10
^GMRD(120.83 - [#120.83] PRINT+13, PRINT+15
^TMP($J PRINT+6, ENCNT+2!, ENCNT+3, ENCNT+5, ENCNT+6*, ENCNT+7*, ENCNT+9!, ENCNT+10*, ENCNT+11!

Label References

Name Line Occurrences
PAGE PRINT+6, PRINT+21, PRINT+22
PRINT YNSO+2
YNSO YNSO+11, YNSO+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PNOTE+11
DIR PRINT+1~, PAGE+1~, YNSO+3!, YNSO+7!
DIR("?" YNSO+6*
DIR("A" YNSO+5*
DIR(0 YNSO+3*, YNSO+4*
>> DTOUT YNSO+8
>> DUOUT YNSO+8
>> GMRACNT PRINT+5*, PRINT+6*, PRINT+7, YNSO+11, YNSO+12
>> GMRACNTT PRINT+7, PRINT+25, PRINT+27, PRINT+28, ENCNT+2*, ENCNT+4*, ENCNT+6, ENCNT+7, YNSO+3
>> GMRADRG PRINT+8*
GMRAFLL PNOTE+4~, PNOTE+10, PNOTE+11
GMRAFLL( PNOTE+8*
>> GMRAG PRINT+8*, PRINT+9, PRINT+10
GMRAHEAD PRINT+11!
>> GMRAI PRINT+5*
>> GMRALL YNSO+3*, YNSO+9, YNSO+11
>> GMRANON YNSO+3*, YNSO+8, YNSO+10, YNSO+12
>> GMRAOTH PRINT+13*, PRINT+15
GMRAOUT PRINT+6, PRINT+21, PRINT+22, PRINT+23, PAGE+2, PNOTE+2~*, PNOTE+11
>> GMRAPA PRINT+2*, PRINT+6*, PRINT+8, PRINT+10, PRINT+12, PRINT+14, PRINT+15
GMRAREC PRINT+12!, PRINT+14*, PRINT+15, PRINT+16, PRINT+19*, PRINT+21*
GMRAREC( PRINT+15*, PRINT+16*, PRINT+19, PRINT+21
GMRAREC("" PRINT+19
>> GMRASIGN PRINT+3, PRINT+26
>> GMRASLL PNOTE+3
>> GMRASLL( PNOTE+5, PNOTE+6
>> GMRAUSER PNOTE+1
IOF PRINT+3, PAGE+3, YNSO+1
IOSL PRINT+6, PRINT+21, PRINT+22
SUB ENCNT+1~, ENCNT+5*, ENCNT+6, ENCNT+7
U PRINT+8, PRINT+9, PRINT+10, PRINT+15, PRINT+16, PRINT+19, PRINT+21, PNOTE+7
X PRINT+1~, PRINT+15*, PRINT+16, PNOTE+4~, PNOTE+5*, PNOTE+6, PNOTE+7, PNOTE+8, ENCNT+2*, ENCNT+3*
, ENCNT+5, ENCNT+6, ENCNT+7, YNSO+2!
Y PRINT+1~, YNSO+8*, YNSO+9, YNSO+10*, YNSO+11, YNSO+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All