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 |  All
Print Page as PDF
Routine: GMTSPSZO

Package: Health Summary

Routine: GMTSPSZO


Information

GMTSPSZO ;SLC/JER - OP Rx 5.6 Summary Component ;12/2/91 13:45 ;

Source Information

Source file <GMTSPSZO.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Summary 2 REGDT^GMTSU  CKP^GMTSUP  
Outpatient Pharmacy 2 PROF^PSO52API  ^PSOHCSUM  

Entry Points

Name Comments DBIA/ICR reference
PARSE ; Parses Medication Instructions
HEAD ; Prints Header
MAIN
GMTSPSO ;SLC/JER - OP Rx Summary Component ;12/2/91 13:45 ;
WRT ; Writes OP Pharmacy Segment Record

External References

Name Field # of Occurrence
REGDT^GMTSU WRT+3
CKP^GMTSUP MAIN+6, MAIN+10, HEAD+1, HEAD+2, WRT+6, WRT+7, WRT+8, WRT+9
PROF^PSO52API MAIN+4
^PSOHCSUM MAIN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Patient Has Archived OP Prescriptions",!
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: "Patient Has Archived OP Prescriptions",!
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: "Outpatient prescriptions are cancelled 72 hours after admission",!
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: ?67,"Last",!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $E($P($P(GMR,U,3),";",2),1,25),?27,$P(GMR,U,6),?38,$P($P(GMR,U,5),";"),?40,$S("EC"[$P($P(GMR,U,5),";"):"("_ECD_")",1:""),?51,$P(GMR,U,7),?57,ID,?67,LFD,?76,"("_$P(GMR,U,8)_")",!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?2,MI,!
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?2,MI(GMI),!
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?4,"Provider: ",$E(GMD,1,26)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?41,"Cost/Fill: $",$J(CF,6,2)
  • Condition for execution: CF
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(59 MAIN+10
^DPT - [#2] MAIN+10
^TMP($J MAIN+3!, MAIN+5, MAIN+6
^UTILITY("PSOO" MAIN+3!, MAIN+9, MAIN+13, MAIN+15!, WRT+4

Label References

Name Line Occurrences
HEAD MAIN+12, WRT+6, WRT+7, WRT+8, WRT+9
PARSE WRT+4
WRT MAIN+13

Naked Globals

Name Field # of Occurrence
^( MAIN+10, MAIN+13
^(1 MAIN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CF WRT+1~, WRT+2*, WRT+9
>> DFN MAIN+4, MAIN+5, MAIN+6, MAIN+10
ECD MAIN~, WRT+2*, WRT+6
GMD WRT+1~, WRT+5*, WRT+9
GMI WRT+1~, WRT+8*, PARSE+1~, PARSE+4*
GMR MAIN~, MAIN+13*, WRT+2, WRT+5, WRT+6
>> GMTS2 MAIN+1
>> GMTSLO MAIN+11*, MAIN+14*, HEAD+3
>> GMTSNPG WRT+6, WRT+7, WRT+8, WRT+9
>> GMTSQIT MAIN+6, MAIN+10, HEAD+1, HEAD+2, WRT+6, WRT+7, WRT+8, WRT+9
GMV WRT+1~, WRT+3*
GMW MAIN~
ID WRT+1~, WRT+2*, WRT+6
IOSL HEAD+3
IX MAIN~, MAIN+13*, WRT+4
LFD WRT+1~, WRT+2*, WRT+6
MI WRT+1~, WRT+4*, WRT+7, PARSE+2, PARSE+3, PARSE+4
MI( WRT+8, PARSE+4*
NL WRT+1~, WRT+4*, WRT+7, WRT+8, PARSE+2*, PARSE+3, PARSE+4
NW PARSE+1~, PARSE+3*
>> PSOACT MAIN+2*
PSOBEGIN MAIN~, MAIN+1*, MAIN+2
U WRT+2, WRT+5, WRT+6
WPL PARSE+1~, PARSE+3*, PARSE+4
X WRT+1~, WRT+3*!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All