Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMTSPXIM

Package: Health Summary

Routine: GMTSPXIM


Information

GMTSPXIM ;SLC/SBW,KER - PCE Immunization component ;Sep 08, 2023@13:21

Source Information

Source file <GMTSPXIM.m>

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

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,?53,$$TRUNCATE(GMSITE,10),?65,GMFOOTR,?74,GMFOOTC
  • Line Location: IMMDSP+20
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: ?46,$$TRUNCATE($$GETSITE(GMTSN1),10)
  • Line Location: CRDSP+11
Function Call: WRITE
  • Prompt: ?58,"<C>"
  • Line Location: CRDSP+13
Function Call: WRITE
  • Prompt: ?58,"<I>"
  • 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
Info |  Source |  Entry Points |  Interaction Calls