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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMTSPSO9

Package: Health Summary

Routine: GMTSPSO9


Information

GMTSPSO9 ;RS/DLC - OP Rx Summary Component by Select Med ;Jan 14, 2026@15:27

Source Information

Source file <GMTSPSO9.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Pharmacy Data Management 3 DATA^PSS50  $$NAME^PSS50P7  PSS^PSS59P7  
Health Summary 2 ($$HF,REGDT4)^GMTSU  CKP^GMTSUP  
Outpatient Pharmacy 2 PROF^PSO52API  (,ACS)^PSOHCSUM  
VA FileMan 1 ^DIWP  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; OP Rx HS Component
WRT ; Writes OP Pharmacy Segment Record
HEAD ; Prints Header
; Only write the next line when there is data
GETOI(GMTS50IEN) ; Return pharmacy orderable item given DRUG file (#50) IEN

External References

Name Field # of Occurrence
^DIWP WRT+9
$$HF^GMTSU WRT+1
REGDT4^GMTSU WRT+5
CKP^GMTSUP MAIN+8, WRT+11, WRT+16, WRT+19, HEAD+5, HEAD+7, HEAD+15, HEAD+18, HEAD+19
PROF^PSO52API MAIN+6
^PSOHCSUM MAIN+10
ACS^PSOHCSUM MAIN+9, MAIN+10
DATA^PSS50 GETOI+2
$$NAME^PSS50P7 HEAD+13
PSS^PSS59P7 HEAD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Patient Has Archived OP Prescriptions",!
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: $P($P(GMR,U,3),";",2)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !,?18,$P(GMR,U,6),?31,$S($G(GMR)["SUSPENDED":"ACTIVE/SUSP",1:$P($P(GMR,U,5),";",2)),?45,$P(GMR,U,7),?54,ID,?65,LFD,?76,"("_$P(GMR,U,8)_")",!
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: ?2,"SIG: "
  • Condition for execution: GMSIG=1
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?7,MI,!
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?4,"Indication: "_IND,!
  • Condition for execution: IND]""
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?4,"Provider: ",$E(GMD,1,22)
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?37,"Cost/Fill: $",$J(CF,6,2)
  • Condition for execution: CF
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: ?57,"Exp/Can Dt: "_ECD
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+21
Function Call: WRITE
  • Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",!
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: "Orderable item(s) selected: "
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: GMNAME
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+17
Function Call: WRITE
  • Prompt: !?65,"Last",!
  • Line Location: HEAD+18
Function Call: WRITE
  • Prompt: ?18,"Rx #",?31,"Stat",?45,"Qty",?54,"Issued",?65,"Filled",?76,"Rem"
  • Line Location: HEAD+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HEAD+5
^TMP("PSOO" MAIN+5!, MAIN+9, MAIN+10, MAIN+14, MAIN+20!, WRT+6, WRT+8, WRT+9
^TMP($J MAIN+5!, MAIN+7, MAIN+8, HEAD+4!, HEAD+5, GETOI+1!, GETOI+4, GETOI+5!
^UTILITY($J MAIN+20!, WRT+7!, WRT+15, WRT+17

Label References

Name Line Occurrences
$$GETOI MAIN+15
HEAD WRT+12, WRT+16, WRT+19
WRT MAIN+18

Naked Globals

Name Field # of Occurrence
^( MAIN+14, HEAD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A HEAD+2~, HEAD+13*
CF WRT+1~, WRT+2*, WRT+19
>> DFN MAIN+6, MAIN+7, MAIN+8, HEAD+5
DIWF WRT+1~, WRT+7*
DIWL WRT+1~, WRT+7*, WRT+15, WRT+17
DIWR WRT+1~, WRT+7*
ECD MAIN+1~, WRT+2*, WRT+20
GMD WRT+1~, WRT+10*, WRT+19
GMI WRT+1~, WRT+14*, WRT+15*, WRT+17, HEAD+2~, HEAD+9*, HEAD+10*, HEAD+13
GMNAME HEAD+2~, HEAD+13*, HEAD+14, HEAD+16
GMR MAIN+1~, MAIN+14*, MAIN+15, WRT+2, WRT+10, WRT+12, WRT+13, WRT+20
>> GMRANGE WRT+4
GMSIG WRT+1~, WRT+14*, WRT+18*
GMTOP MAIN+1~, MAIN+12*, WRT+12*, WRT+18*, WRT+21*, HEAD+3*
>> GMTS1 WRT+4
>> GMTS2 MAIN+3
GMTS50IEN GETOI~, GETOI+2, GETOI+4
>> GMTSEG( MAIN+17, MAIN+18, HEAD+10, HEAD+13
>> GMTSEGN MAIN+17, MAIN+18, HEAD+10, HEAD+13
GMTSI MAIN+1~, MAIN+16*, MAIN+17*, MAIN+18
>> GMTSLO MAIN+11*, MAIN+19*, HEAD+21
>> GMTSNPG WRT+12, WRT+16, WRT+19
>> GMTSQIT MAIN+8, WRT+11, WRT+15, WRT+16, WRT+19, HEAD+5, HEAD+7, HEAD+15, HEAD+18, HEAD+19
GMTSRETURN GETOI+3~, GETOI+4*, GETOI+6
GMV WRT+1~, WRT+5*
GMX MAIN+1~, MAIN+12*, WRT+12, WRT+14*, HEAD+5
GMY HEAD+2~, HEAD+9*, HEAD+11*, HEAD+12
GUI WRT+1~*, HEAD+21
ID WRT+1~, WRT+2*, WRT+4, WRT+13
IND WRT+1~, WRT+6*, WRT+19
IOSL HEAD+21
IX MAIN+1~, MAIN+12*, MAIN+14*, WRT+6, WRT+8, WRT+9
LFD WRT+1~, WRT+2*, WRT+13
MI WRT+1~, WRT+17*, WRT+18
NL WRT+1~, WRT+7*, WRT+8*, WRT+9
PSOACT MAIN+1~, MAIN+4*
PSOBEGIN MAIN+1~, MAIN+3*, MAIN+4!
SELMED MAIN+1~, MAIN+15*
SELMEDOI MAIN+1~, MAIN+15*, MAIN+18
U MAIN+15, WRT+2, WRT+6, WRT+10, WRT+12, WRT+13, WRT+20, GETOI+4
X WRT+1~, WRT+5*!, WRT+9*

Marked Items

Name Field # of Occurrence
$T(ACS^PSOHCSUM MAIN+9, MAIN+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All