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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSGMUTL

Package: Inpatient Medications

Routine: PSGMUTL


Information

PSGMUTL ;BIR/MV-UTLILITY USE FOR THE MAR AND MEDWS. ;15 SEP 97 / 2:10 PM

Source Information

Source file <PSGMUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 4 ONHOLD^PSGMMAR2  TXT^PSGMUTL  $$LASTREN^PSJLMPRI  DRGDISP^PSJLMUT1  
List Manager 1 $$SETSTR^VALM1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 19

Package Total Caller Graph
Inpatient Medications 19 PSGDSP  PSGEUD  PSGMAR  PSGMAR2  PSGMIV  PSGMMAR  PSGMMAR2  PSGMMAR3  
PSGMUTL  PSGPLR  PSIVLBL1  PSIVUTL  PSJBCMA5  PSJBCMA6  PSJEXP0  PSJLMUT1  
PSJORMA1  PSJORMAR  PSJUTL  

Entry Points

Name Comments DBIA/ICR reference
MARFORM ;Prompt for the MAR form (Blank and Non-blank)
BLANK(LEN) ;
TXT(TXT,LEN)
LONGTXT(LEN,DFN,ORDER) ; Build array of long special instructions
SPLIT ;* Split a word string into individual words.
LEN(X1,OLD) ;* Wrap word around if it doesn't fit the display length
DELIM(BSD) ;* BSD=" ","/","-"
MARLB(LEN)
MARLB2 ;Split array into 2 labels.

External References

Name Field # of Occurrence
^DIR MARFORM+8
ONHOLD^PSGMMAR2 MARLB+2
TXT^PSGMUTL MARLB+12
$$LASTREN^PSJLMPRI MARLB+17
DRGDISP^PSJLMUT1 MARLB+10
$$SETSTR^VALM1 MARLB+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] LONGTXT+4, LONGTXT+5, MARLB+16
^PS(55 - [#55] LONGTXT+2, LONGTXT+3, MARLB+16

Label References

Name Line Occurrences
$$BLANK MARLB+4, MARLB+11, MARLB+20, MARLB+21, MARLB+26, MARLB+27, MARLB+28, MARLB+29
$$LONGTXT MARLB+12
DELIM SPLIT+5
LEN SPLIT+6, DELIM+9
MARLB2 MARLB+33
SPLIT TXT+5
TXT LONGTXT+3, LONGTXT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BSD SPLIT+3~, SPLIT+5*, DELIM~, DELIM+2, DELIM+5, DELIM+6, DELIM+7
DFN LONGTXT~, LONGTXT+2, LONGTXT+3, MARLB+12
>> DIR("?" MARFORM+3*, MARFORM+4*, MARFORM+5*, MARFORM+6*, MARFORM+7*
>> DIR("A" MARFORM+2*
>> DIR("B" MARFORM+2*
>> DIR(0 MARFORM+1*
>> DIRUT MARFORM+8
DRUGNAME MARLB+2!, MARLB+10
DRUGNAME( MARLB+11
I LONGTXT+1~, LONGTXT+2*, LONGTXT+4*
II LONGTXT+1~, LONGTXT+3*, LONGTXT+5*
INIT MARLB2+2~, MARLB2+3*, MARLB2+11
L MARLB+2~, MARLB+3*, MARLB+4*, MARLB+5, MARLB+6, MARLB+7, MARLB+8, MARLB+9*, MARLB+11*, MARLB+13*
, MARLB+19*, MARLB+20, MARLB+22, MARLB+24*, MARLB+30, MARLB+31*, MARLB+32
LAST LONGTXT+1~*, LONGTXT+3*, LONGTXT+5*
LEN BLANK~, BLANK+2, TXT~, TXT+7, LONGTXT~, LONGTXT+3, LONGTXT+5, SPLIT+4, SPLIT+6, LEN+2
, LEN+4, MARLB~, MARLB+12
MARLB MARLB+2!, MARLB+32*, MARLB+33, MARLB2+3, MARLB2+4, MARLB2+5, MARLB2+7, MARLB2+9, MARLB2+11*, MARLB2+13
, MARLB2+15, MARLB2+17, MARLB2+18*
MARLB( MARLB+4*, MARLB+5*, MARLB+6*, MARLB+7*, MARLB+8*, MARLB+11*, MARLB+13*, MARLB+19, MARLB+20, MARLB+22*
, MARLB+30*, MARLB+31*, MARLB2+3, MARLB2+4, MARLB2+6*, MARLB2+7*, MARLB2+8*, MARLB2+9*, MARLB2+10*, MARLB2+11*
, MARLB2+13, MARLB2+15*, MARLB2+16*
MARLB(12 MARLB2+17*
MARLB(5 MARLB+24*
MARLB(6 MARLB2+14*
MARX TXT+5!, TXT+12*, LONGTXT+1!, LONGTXT+6!*, MARLB+14!
MARX( TXT+7*, TXT+8, TXT+9*, TXT+11*, LONGTXT+3, LONGTXT+5, MARLB+13
MARX(0 LONGTXT+7
MARXTXT LONGTXT+1~, LONGTXT+3*, LONGTXT+5*
ND4 MARLB+16~*, MARLB+17
NEW SPLIT+3~, DELIM+1!
NEW( SPLIT+7, LEN+4*, DELIM+5*, DELIM+6*, DELIM+8*, DELIM+9, DELIM+10
OLD TXT+5~, SPLIT+6!, LEN~, LEN+2, LEN+3, LEN+4, DELIM+10!
OLD( TXT+6, TXT+7, TXT+10, SPLIT+7*, DELIM+2, DELIM+5, DELIM+6, DELIM+7, DELIM+8, DELIM+10*
OLD(0 SPLIT+5
OLD(1 SPLIT+4*, SPLIT+5*, SPLIT+6
ON MARLB+2!*
ONCALL DELIM+2!, DELIM+3, DELIM+8*
>> ONHOLD MARLB+7
ORDER LONGTXT~, LONGTXT+2, LONGTXT+3, LONGTXT+4, LONGTXT+5
>> PPN MARLB+8
>> PSGLFD MARLB+6
>> PSGLNF MARLB+18, MARLB+27
>> PSGLOD MARLB+5, MARLB+6, MARLB+7
PSGLREN MARLB+17~*
>> PSGLRN MARLB+15, MARLB+17*, MARLB+21, MARLB+29
PSGLRNDT MARLB+17~*
>> PSGLRPH MARLB+20, MARLB+28
>> PSGLSD MARLB+6
>> PSGLSI MARLB+12
>> PSGLSM MARLB+18, MARLB+26
>> PSGLST MARLB+11
>> PSGLWS MARLB+18, MARLB+25
>> PSGMARB MARFORM+8*
>> PSGORD MARLB+2, MARLB+10, MARLB+12, MARLB+15, MARLB+16, MARLB+17
>> PSGP MARLB+10, MARLB+15, MARLB+16, MARLB+17
>> PSSN MARLB+8
>> PST MARLB+5
TMPMARX LONGTXT+1~*, LONGTXT+6
TMPMARX( LONGTXT+3*, LONGTXT+5*
TMPMARX(" " LONGTXT+3, LONGTXT+5
>> TS MARLB+33, MARLB2+5
TXT TXT~, LONGTXT+1~, SPLIT+4, SPLIT+5, SPLIT+6, MARLB+2~
TXTLN LONGTXT+1~, LONGTXT+2*, LONGTXT+3, LONGTXT+4*, LONGTXT+5
X BLANK+1~, BLANK+2*, BLANK+3, TXT+6*, TXT+7, TXT+10, SPLIT+3~, SPLIT+7*, LEN+1~, LEN+3*
, LEN+4*, DELIM+2*, DELIM+5, DELIM+6, DELIM+7, DELIM+8, DELIM+10*, MARLB+2~, MARLB+11*, MARLB+13*
, MARLB+18*, MARLB+19, MARLB+20*, MARLB+21*, MARLB+22, MARLB+25*, MARLB+26*, MARLB+27*, MARLB+28*, MARLB+29*
, MARLB+30, MARLB2+2~, MARLB2+4*, MARLB2+5*, MARLB2+6, MARLB2+7, MARLB2+8, MARLB2+9*, MARLB2+10*, MARLB2+11
, MARLB2+13~*, MARLB2+15*, MARLB2+16*
X( MARLB2+4*, MARLB2+7, MARLB2+9, MARLB2+13*, MARLB2+15, MARLB2+17
X1 TXT+5~, TXT+6*, TXT+7*, TXT+8, TXT+9, TXT+11, TXT+12, SPLIT+3~, LEN~, LEN+4*
, DELIM+2*, DELIM+4*, DELIM+5, DELIM+6, DELIM+8, DELIM+9
Y MARFORM+8, TXT+5~, TXT+6*, TXT+7*, TXT+10*, TXT+11, SPLIT+3~, DELIM+2*, DELIM+3, DELIM+5
, DELIM+6, DELIM+8, MARLB2+2~, MARLB2+3*, MARLB2+7*, MARLB2+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All