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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMTSPXIM

Package: Health Summary

Routine: GMTSPXIM


Information

GMTSPXIM ;SLC/SBW,KER - PCE Immunization component ;Jul 18, 2024@16:25

Source Information

Source file <GMTSPXIM.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Summary 2 (FORMAT,LINE,REGDT4)^GMTSU  CKP^GMTSUP  
Kernel 1 ($$REPEAT,$$TRIM)^XLFSTR  
PCE Patient Care Encounter 1 (CONREF,IMMUN)^PXRHS03  

Entry Points

Name Comments DBIA/ICR reference
IMMUNCDT ;Main entry point for chron (SIMC)
IMMUNRDT ;Main entry point for reverse chron (SIMR)
IMMUND ;Main entry point for detailed display (DIM)
IMMUN ; Main Entry Point for simple format (IM,SIM)
IMMDSP ; Display Immunization data
CONREF(GMTSSUB,GMTSTYPE) ; Process contraindications/refusals
CRDSP(GMTSSUB) ; Display Contraindicated/Refusal data
SECTHDR ; Section Header
HDR ; Sub-header
FOOT(GMNOTE) ;displays footnotes for reaction and comments
IMMDET
CRDET(GMTSSUB) ; Display Contraindicated/Refusal data in detailed format
TRUNCATE(GMTSTEXT,GMTSLEN) ; Truncate the given text to the specified length
GETSITE(GMTSNODE) ; Return site name for display

External References

Name Field # of Occurrence
FORMAT^GMTSU IMMDET+21, IMMDET+23, IMMDET+29, IMMDET+32, IMMDET+35, IMMDET+41, IMMDET+42, IMMDET+50, IMMDET+57, IMMDET+63
, IMMDET+64, IMMDET+81, CRDET+10, CRDET+12, CRDET+17, CRDET+30, CRDET+40, CRDET+43
LINE^GMTSU IMMDET+21, IMMDET+24, IMMDET+29, IMMDET+32, IMMDET+35, IMMDET+41, IMMDET+42, IMMDET+50, IMMDET+57, IMMDET+63
, IMMDET+64, IMMDET+81, CRDET+10, CRDET+13, CRDET+17, CRDET+30, CRDET+40, CRDET+43
REGDT4^GMTSU IMMDSP+6, CRDSP+8, IMMDET+12, IMMDET+13, IMMDET+14, IMMDET+15, IMMDET+61, CRDET+14
CKP^GMTSUP IMMUN+23, IMMUN+25, IMMUN+27, IMMUN+31, IMMDSP+12, IMMDSP+18, CONREF+14, CONREF+16, CONREF+18, CRDSP+3
, CRDSP+6, SECTHDR+1, SECTHDR+3, SECTHDR+5, HDR+1, FOOT+4, FOOT+7, FOOT+10, FOOT+13, FOOT+15
, FOOT+17, FOOT+19, IMMDET+17, IMMDET+19, IMMDET+25, IMMDET+27, IMMDET+30, IMMDET+33, IMMDET+44, IMMDET+46
, IMMDET+52, IMMDET+55, IMMDET+66, IMMDET+68, IMMDET+69, IMMDET+72, IMMDET+77, IMMDET+80, CRDET+6, CRDET+8
, CRDET+15, CRDET+18, CRDET+21, CRDET+26, CRDET+32, CRDET+42
CONREF^PXRHS03 IMMUN+7
IMMUN^PXRHS03 IMMUN+6
$$REPEAT^XLFSTR SECTHDR+4
$$TRIM^XLFSTR IMMDET+38, TRUNCATE+5, TRUNCATE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: IMMUN+26
Function Call: WRITE
  • Prompt: !
  • Line Location: IMMUN+28
Function Call: WRITE
  • Prompt: !,$$TRUNCATE($P(GMN0,U,1),33)
  • Line Location: IMMDSP+19
Function Call: WRITE
  • Prompt: ?35,$P(GMN0,U,4),?42,GMTSDAT,?65,GMFOOTR,?74,GMFOOTC,!
  • Line Location: IMMDSP+20
Function Call: WRITE
  • Prompt: ?53,$$TRUNCATE(GMSITE,25)
  • Line Location: IMMDSP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: CONREF+17
Function Call: WRITE
  • Prompt: !
  • Line Location: CONREF+19
Function Call: WRITE
  • Prompt: !,$$TRUNCATE($P($G(^TMP("PXCRI",$J,GMTSSUB,GMTSSUB1,GMTSSUB2,GMTSIFN,0)),U,1),33)
  • Line Location: CRDSP+7
Function Call: WRITE
  • Prompt: ?35,X
  • Line Location: CRDSP+9
Function Call: WRITE
  • Prompt: ?58,"<C>"
  • Line Location: CRDSP+11
Function Call: WRITE
  • Prompt: ?58,"<I>"
  • Line Location: CRDSP+12
Function Call: WRITE
  • Prompt: !,?46,$$TRUNCATE($$GETSITE(GMTSN1),32)
  • Line Location: CRDSP+14
Function Call: WRITE
  • Prompt: !,GMTSTYPE
  • Line Location: SECTHDR+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",$L(GMTSTYPE))
  • Line Location: SECTHDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SECTHDR+6
Function Call: WRITE
  • Prompt: !,"<**> ",$$TRUNCATE($P(GMNOTE("R",GMIX),U),23),?30,$P(GMNOTE("R",GMIX),U,2),?42,$P(GMNOTE("R",GMIX),U,3)
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: !,"<C> See the Detailed Immunizations Health Summary Component[DIM] for Comments"
  • Line Location: FOOT+8
Function Call: WRITE
  • Prompt: !,"<I> See the Detailed Immunizations Health Summary Component[DIM] for Additional Information"
  • Line Location: FOOT+11
Function Call: WRITE
  • Prompt: !," * Value is truncated; see the Detailed Immunizations Health Summary Component[DIM] for"
  • Line Location: FOOT+14
Function Call: WRITE
  • Prompt: !," complete text"
  • Line Location: FOOT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+20
Function Call: WRITE
  • Prompt: !,?2,"DOSAGE: "_$S($P(GMN2,U,3)="":"",1:$P(GMN2,U,3)),?40,"SERIES: "_$P(GMN0,U,4)
  • Line Location: IMMDET+26
Function Call: WRITE
  • Prompt: !,?2,"DATE ADMINISTERED: "_GMTSDAT
  • Line Location: IMMDET+28
Function Call: WRITE
  • Prompt: !,?2,"LOT #: "_$P($G(GMN3),U,1),?40,"EXP DATE: "_GMTSEDAT
  • Line Location: IMMDET+31
Function Call: WRITE
  • Prompt: !,?2,"REACTION/CONTRAINDICATED: "_GMSIR_$S(GMSIC]"":"; "_GMSIC,1:"")
  • Line Location: IMMDET+34
Function Call: WRITE
  • Prompt: !,?2,"RESULTS: "_GMTSRESULT,?40,"READING: "_$P(GMN4,U,2)
  • Line Location: IMMDET+45
Function Call: WRITE
  • Prompt: !,?2,"DATE READ: "_GMTSRDAT
  • Line Location: IMMDET+47
Function Call: WRITE
  • Prompt: ?40,"READER: "_GMTSREADER
  • Line Location: IMMDET+51
Function Call: WRITE
  • Prompt: !,?2,"READING RECORDED: "_GMTSRRDAT,?40,"HOURS READ POST-INOCULATION: "_$P(GMN4,U,6)
  • Line Location: IMMDET+53
Function Call: WRITE
  • Prompt: !,?2,"READING COMMENT:"
  • Line Location: IMMDET+56
Function Call: WRITE
  • Prompt: !,?2,"VIS: ",GMTSVIS,?40,"EDITION DATE: "_X
  • Line Location: IMMDET+67
Function Call: WRITE
  • Prompt: !,?2,"VIS: ",?40,"EDITION DATE:"
  • Line Location: IMMDET+68
Function Call: WRITE
  • Prompt: !,?2,"ADMINISTERED BY: "_$P(GMN0,U,9)
  • Line Location: IMMDET+70
Function Call: WRITE
  • Prompt: !,?2,"ORDERED BY: POLICY"
  • Line Location: IMMDET+74
Function Call: WRITE
  • Prompt: !,?2,"ORDERED BY: "_$P(GMN0,U,8)
  • Line Location: IMMDET+75
Function Call: WRITE
  • Prompt: !,?2,"DOCUMENTED BY: "_$P(GMN2,U,4)
  • Line Location: IMMDET+78
Function Call: WRITE
  • Prompt: !,?2,"COMMENTS:"
  • Line Location: IMMDET+80
Function Call: WRITE
  • Prompt: !,?2,"DATE "_$S(GMTSSUB="C":"CONTRAINDICATED",1:"REFUSED")_": "_GMTSDATE
  • Line Location: CRDET+16
Function Call: WRITE
  • Prompt: !,?2,"REASON: "_$P(GMTSN0,U,4)
  • Line Location: CRDET+19
Function Call: WRITE
  • Prompt: !,?2,"COMMENTS:"
  • Line Location: CRDET+42

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("PXCRI" IMMUN+5!, IMMUN+8, IMMUN+32!, CONREF+3, CONREF+6, CONREF+9, CONREF+10, CONREF+13, CRDSP+7, CRDSP+8
, CRDSP+10, CRDSP+13, CRDET+3, CRDET+4, CRDET+11, CRDET+12, CRDET+24, CRDET+30, CRDET+34, CRDET+41
^TMP("PXI" IMMUN+5!, IMMUN+8, IMMUN+11, IMMUN+14, IMMUN+18, IMMUN+20, IMMUN+22, IMMUN+32!, IMMDSP+3, IMMDSP+4
, IMMDSP+16, IMMDET+3, IMMDET+4, IMMDET+5, IMMDET+6, IMMDET+7, IMMDET+9, IMMDET+10, IMMDET+22, IMMDET+23
, IMMDET+36, IMMDET+79

Label References

Name Line Occurrences
$$GETSITE IMMDSP+5, CRDSP+14, IMMDET+11, CRDET+17
$$TRUNCATE IMMDSP+8, IMMDSP+19, IMMDSP+21, CRDSP+7, CRDSP+14, FOOT+5
@( IMMUN+20, CONREF+11
CONREF IMMUN+29, IMMUN+30
FOOT IMMUN+31
HDR IMMUN+12, IMMDSP+13, IMMDSP+18, CONREF+5, CRDSP+4, CRDSP+6
IMMUN IMMUNCDT+1, IMMUNRDT+1
SECTHDR IMMUN+10, IMMDSP+13, IMMDSP+18, CONREF+2, CRDSP+4, CRDSP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT IMMUN+1~, IMMDSP+3*
COMMENT IMMUN+2~, IMMDSP+3*, IMMDSP+16*, IMMDSP+17, IMMDET+79*, IMMDET+80, IMMDET+81
>> DFN IMMUN+6, IMMUN+7
FULLNAME IMMDET+1~
GMCKP IMMUN+2~
GMF FOOT+1~
GMFOOTC IMMUN+3~, IMMDSP+2*, IMMDSP+17*, IMMDSP+20
GMFOOTR IMMUN+3~, IMMDSP+2*, IMMDSP+9*, IMMDSP+20, IMMDSP+23
GMICL IMMUN+2~
GMIFN IMMUN+1~, IMMUN+19*, IMMUN+20*, IMMDSP+3, IMMDSP+4, IMMDSP+16, IMMDET+3, IMMDET+4, IMMDET+5, IMMDET+6
, IMMDET+7, IMMDET+9, IMMDET+10, IMMDET+22, IMMDET+23, IMMDET+36, IMMDET+79
GMIX IMMUN+2~, IMMDSP+24*, IMMDSP+25, FOOT+1~, FOOT+3*, FOOT+5
GMN0 IMMUN+1~, IMMDSP+3*, IMMDSP+6, IMMDSP+7, IMMDSP+19, IMMDSP+20, IMMDSP+25, IMMDET+1~, IMMDET+3*, IMMDET+8
, IMMDET+12, IMMDET+21, IMMDET+26, IMMDET+70, IMMDET+71, IMMDET+73, IMMDET+75, IMMDET+76
GMN1 IMMUN+1~, IMMDSP+4*, IMMDSP+5, IMMDET+1~, IMMDET+4*, IMMDET+11
GMN2 IMMDET+1~, IMMDET+5*, IMMDET+26, IMMDET+32, IMMDET+76, IMMDET+78
GMN3 IMMDET+1~, IMMDET+6*, IMMDET+13, IMMDET+29, IMMDET+31
GMN4 IMMDET+1~, IMMDET+7*, IMMDET+14, IMMDET+15, IMMDET+38, IMMDET+39, IMMDET+42, IMMDET+45, IMMDET+48, IMMDET+53
GMNOTE IMMUN+31, FOOT~, FOOT+21!
GMNOTE("*" FOOT+12, TRUNCATE+2*, TRUNCATE+5*, TRUNCATE+8*
GMNOTE("C" IMMDSP+17*, CRDSP+11*, FOOT+6
GMNOTE("I" CRDSP+12*, FOOT+9
GMNOTE("R" IMMDSP+9*, IMMDSP+25*, FOOT+2, FOOT+3, FOOT+5
GMNVIS IMMDET+1~, IMMDET+58
GMNVIS( IMMDET+10*, IMMDET+59, IMMDET+60, IMMDET+61, IMMDET+63
GMSIC IMMUN+1~, IMMDSP+7*, IMMDSP+8, IMMDSP+9, IMMDSP+10, IMMDET+1~, IMMDET+8*, IMMDET+34
GMSIR IMMUN+1~, IMMDSP+7*, IMMDSP+8*, IMMDSP+9, IMMDSP+10*, IMMDSP+25, IMMDET+1~, IMMDET+8*, IMMDET+34
GMSITE IMMUN+1~, IMMDSP+5*, IMMDSP+21, IMMDET+11*, IMMDET+35
GMSX1 IMMUN+1~, IMMUN+14*, IMMUN+18, IMMUN+20, IMMDSP+3, IMMDSP+4, IMMDSP+16, IMMDET+3, IMMDET+4, IMMDET+5
, IMMDET+6, IMMDET+7, IMMDET+9, IMMDET+10, IMMDET+22, IMMDET+23, IMMDET+36, IMMDET+79
GMSX2 IMMUN+1~, IMMUN+15*, IMMUN+18*, IMMUN+20, IMMDSP+3, IMMDSP+4, IMMDSP+16, IMMDET+3, IMMDET+4, IMMDET+5
, IMMDET+6, IMMDET+7, IMMDET+9, IMMDET+10, IMMDET+22, IMMDET+23, IMMDET+36, IMMDET+79
GMTAB IMMUN+2~
GMTSBLANK IMMUN+3~, IMMUN+16*, IMMUN+17*, IMMUN+21*, IMMDSP+11, CONREF+7*, CONREF+8*, CONREF+12*, CRDSP+2
GMTSCHAR TRUNCATE+3~, TRUNCATE+4*, TRUNCATE+5, TRUNCATE+7*, TRUNCATE+8
GMTSCOM CRDSP+1~, CRDSP+10*, CRDSP+11
GMTSCOMMENT CRDET+1~, CRDET+41*, CRDET+42, CRDET+43
GMTSCOUNT IMMUN+3~, IMMUN+13*, CONREF+4*, IMMDET+16, IMMDET+82*, CRDET+5, CRDET+44*
GMTSDAT IMMUN+1~, IMMDSP+6*, IMMDSP+20, IMMDSP+25, CRDSP+8*, IMMDET+12*, IMMDET+28
GMTSDATE CRDET+1~, CRDET+14*, CRDET+16
GMTSEDAT IMMUN+3~, IMMDET+13*, IMMDET+31
GMTSF IMMUND+1~, IMMUND+2*, IMMUN+12, IMMUN+20, IMMUN+31, CONREF+5, CONREF+11
GMTSFIRST IMMUN+3~, IMMUN+13*, IMMUN+16*, CONREF+4*, CONREF+7*
GMTSGNAME CRDET+1~, CRDET+37*, CRDET+40
GMTSGROUP CRDET+1~, CRDET+34*, CRDET+35
GMTSGROUP( CRDET+37
GMTSIFN CONREF+1~, CONREF+10*, CRDSP+7, CRDSP+8, CRDSP+10, CRDSP+13, CRDET+3, CRDET+4, CRDET+11, CRDET+12
, CRDET+24, CRDET+30, CRDET+34, CRDET+41
GMTSIMIEN CRDET+1~, CRDET+24*, CRDET+30
GMTSINDENT CRDET+2~, CRDET+29*, CRDET+39*
GMTSLEN TRUNCATE~, TRUNCATE+1, TRUNCATE+2, TRUNCATE+4, TRUNCATE+5, TRUNCATE+7
GMTSLN IMMUN+2~
GMTSN0 CRDET+1~, CRDET+3*, CRDET+10, CRDET+14, CRDET+19, CRDET+22, CRDET+33
GMTSN1 CRDSP+1~, CRDSP+13*, CRDSP+14, CRDET+1~, CRDET+4*, CRDET+17
GMTSNEW TRUNCATE+3~, TRUNCATE+4*, TRUNCATE+8*, TRUNCATE+9
GMTSNODE GETSITE~, GETSITE+1
GMTSNPG IMMUN+2~, IMMUN+26, IMMUN+28, IMMDSP+1~, IMMDSP+13, IMMDSP+18, CONREF+1~, CONREF+16, CONREF+18, CRDSP+1~
, CRDSP+4, CRDSP+6
GMTSPART IMMDET+2~, IMMDET+22*, IMMDET+23, CRDET+1~, CRDET+11*, CRDET+12, CRDET+23*, CRDET+25, CRDET+28*, CRDET+36*
, CRDET+38*, CRDET+39*, CRDET+40
>> GMTSQIT IMMUN+12, IMMUN+14, IMMUN+18, IMMUN+20, IMMUN+23, IMMUN+25, IMMUN+27, IMMUN+31, IMMDSP+12, IMMDSP+18
, CONREF+5, CONREF+6, CONREF+9, CONREF+10, CONREF+14, CONREF+16, CONREF+18, CRDSP+3, CRDSP+6, SECTHDR+1
, SECTHDR+3, SECTHDR+5, HDR+1, FOOT+2, FOOT+3, FOOT+4, FOOT+6, FOOT+7, FOOT+9, FOOT+10
, FOOT+12, FOOT+13, FOOT+15, FOOT+17, FOOT+19, IMMDET+16, IMMDET+17, IMMDET+19, IMMDET+21, IMMDET+22
, IMMDET+24, IMMDET+25, IMMDET+27, IMMDET+29, IMMDET+30, IMMDET+32, IMMDET+33, IMMDET+35, IMMDET+38, IMMDET+40
, IMMDET+41, IMMDET+44, IMMDET+46, IMMDET+49, IMMDET+52, IMMDET+55, IMMDET+58, IMMDET+59, IMMDET+63, IMMDET+66
, IMMDET+68, IMMDET+69, IMMDET+72, IMMDET+77, IMMDET+80, IMMDET+81, CRDET+5, CRDET+6, CRDET+8, CRDET+10
, CRDET+11, CRDET+13, CRDET+15, CRDET+17, CRDET+18, CRDET+21, CRDET+24, CRDET+25, CRDET+26, CRDET+31
, CRDET+32, CRDET+37, CRDET+42, CRDET+43
GMTSRDAT IMMDET+1~, IMMDET+14*, IMMDET+47
GMTSREADER IMMDET+2~, IMMDET+48*, IMMDET+49, IMMDET+50, IMMDET+51
GMTSRESULT IMMDET+2~, IMMDET+39*, IMMDET+40, IMMDET+41, IMMDET+43, IMMDET+45
GMTSRRDAT IMMDET+2~, IMMDET+15*, IMMDET+53
GMTSSORT IMMUNCDT+1*, IMMUNRDT+1*, IMMUN+4*, IMMUN+6, IMMUN+7, IMMUN+32!
GMTSSUB CONREF~, CONREF+3, CONREF+6, CONREF+9, CONREF+10, CONREF+11, CONREF+13, CRDSP~, CRDSP+7, CRDSP+8
, CRDSP+10, CRDSP+13, CRDET~, CRDET+3, CRDET+4, CRDET+11, CRDET+12, CRDET+16, CRDET+20, CRDET+24
, CRDET+30, CRDET+31, CRDET+34, CRDET+41
GMTSSUB1 CONREF+1~, CONREF+6*, CONREF+9, CONREF+10, CRDSP+7, CRDSP+8, CRDSP+10, CRDSP+13, CRDET+3, CRDET+4
, CRDET+11, CRDET+12, CRDET+24, CRDET+30, CRDET+34, CRDET+41
GMTSSUB2 CONREF+1~, CONREF+9*, CONREF+10, CRDSP+7, CRDSP+8, CRDSP+10, CRDSP+13, CRDET+3, CRDET+4, CRDET+11
, CRDET+12, CRDET+24, CRDET+30, CRDET+34, CRDET+41
GMTSTEXT TRUNCATE~, TRUNCATE+1, TRUNCATE+2, TRUNCATE+4, TRUNCATE+5, TRUNCATE+7, TRUNCATE+8
GMTSTYPE IMMUN+3~, IMMUN+9*, CONREF~, SECTHDR+2, SECTHDR+4, SECTHDR+7*, HDR+2, HDR+4
GMTSVIS IMMDET+2~, IMMDET+60*, IMMDET+62, IMMDET+65, IMMDET+67
GMTSX IMMUN+2~
GMW IMMUN+1~
PXV IMMDET+1~, IMMDET+59*, IMMDET+60, IMMDET+61, IMMDET+63
PXVI IMMDET+1~, IMMDET+9*, IMMDET+10
RCOMMENT IMMDET+2~, IMMDET+36*, IMMDET+38, IMMDET+54, IMMDET+57
U IMMDSP+6, IMMDSP+7, IMMDSP+16, IMMDSP+19, IMMDSP+20, IMMDSP+25, CRDSP+7, CRDSP+8, CRDSP+10, FOOT+5
, IMMDET+8, IMMDET+12, IMMDET+13, IMMDET+14, IMMDET+15, IMMDET+21, IMMDET+26, IMMDET+29, IMMDET+31, IMMDET+32
, IMMDET+36, IMMDET+39, IMMDET+42, IMMDET+45, IMMDET+48, IMMDET+53, IMMDET+60, IMMDET+61, IMMDET+63, IMMDET+70
, IMMDET+71, IMMDET+73, IMMDET+75, IMMDET+76, IMMDET+78, IMMDET+79, CRDET+10, CRDET+14, CRDET+19, CRDET+22
, CRDET+33, CRDET+41, GETSITE+1
X IMMUN+1~, IMMDSP+6*, CRDSP+1~, CRDSP+8*, CRDSP+9, IMMDET+12*, IMMDET+13*, IMMDET+14*, IMMDET+15*, IMMDET+61*
, IMMDET+64, IMMDET+67, CRDET+14*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All