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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: GMTSPSO8

Package: Health Summary

Routine: GMTSPSO8


Information

GMTSPSO8 ; RS/DLC - OP Rx Summary Component by VA Drug Class ;Apr 23, 2019@21:29:01

Source Information

Source file <GMTSPSO8.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Summary 2 ($$HF,REGDT4)^GMTSU  CKP^GMTSUP  
Outpatient Pharmacy 2 PROF^PSO52API  (,ACS)^PSOHCSUM  
VA FileMan 2 $$GET1^DIQ  ^DIWP  
National Drug File 1 IEN^PSN50P65  
Pharmacy Data Management 1 PSS^PSS59P7  

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

External References

Name Field # of Occurrence
$$GET1^DIQ MAIN+17
^DIWP WRT+8
$$HF^GMTSU WRT+1
REGDT4^GMTSU WRT+5
CKP^GMTSUP MAIN+8, WRT+10, WRT+15, WRT+18, HEAD+5, HEAD+7, HEAD+15, HEAD+18, HEAD+19
IEN^PSN50P65 HEAD+13
PROF^PSO52API MAIN+6
^PSOHCSUM MAIN+12
ACS^PSOHCSUM MAIN+11, MAIN+12
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: "Patient Has Archived OP Prescriptions",!
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: $P($P(GMR,U,3),";",2)
  • Line Location: WRT+11
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+12
Function Call: WRITE
  • Prompt: ?2,"SIG: "
  • Condition for execution: GMSIG=1
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: ?7,MI,!
  • Line Location: WRT+17
Function Call: WRITE
  • Prompt: ?4,"Provider: ",$E(GMD,1,22)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?37,"Cost/Fill: $",$J(CF,6,2)
  • Condition for execution: CF
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: ?57,"Exp/Can Dt: "_ECD
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+20
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: "VA drug class(es) 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HEAD+5
^TMP("PSOO" MAIN+5!, MAIN+11, MAIN+12, MAIN+16, MAIN+22!, WRT+7, WRT+8
^TMP($J MAIN+5!, MAIN+7, MAIN+8, HEAD+4!, HEAD+5, HEAD+13
^UTILITY($J MAIN+22!, WRT+6!, WRT+14, WRT+16

Label References

Name Line Occurrences
HEAD WRT+11, WRT+15, WRT+18
WRT MAIN+20

Naked Globals

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

Marked Items

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