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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOESF

Package: Inpatient Medications

Routine: PSGOESF


Information

PSGOESF ;BIR/MLM-SPEED FINISH ORDERS ENTERED THROUGH OE/RR ;10 Mar 98 / 2:35 PM

Source Information

Source file <PSGOESF.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Inpatient Medications 11 ($$ENMRN,$$ENPDN)^PSGMI  ENWALL^PSGNE3  DATE^PSGOER0  HMSG^PSGOERS  EN^PSGOEV  SET^PSGON  ^PSGPER1  ENDDC^PSGSICHK  
($$DRUGNAME,$$HIDDEN)^PSJLMUTL  $$DD53P45^PSJMISC  IN^PSJOCDS  
VA FileMan 3 NOW^%DTC  ^DIE  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Pharmacy Data Management 1 ($$LS,UNL)^PSSLOCK  

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: 3

Package Total Caller Graph
Inpatient Medications 3 PSGOE0  PSGOEF  PSJU LM SPEED FINISH  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENCHK ;
DONE ; Kill and exit.
HELP
UPDATE
OC531 ;* Order checks for Speed finish and regular finish

External References

Name Field # of Occurrence
NOW^%DTC OC531+4
^DIE ENCHK+22
^DIR EN+16, DONE+1
$$ENMRN^PSGMI ENCHK+15
$$ENPDN^PSGMI ENCHK+15
ENWALL^PSGNE3 ENCHK+9
DATE^PSGOER0 ENCHK+7
HMSG^PSGOERS ENCHK+3
EN^PSGOEV ENCHK+26
SET^PSGON ENCHK+2
^PSGPER1 DONE+2
ENDDC^PSGSICHK OC531+17
$$DRUGNAME^PSJLMUTL ENCHK+11, ENCHK+18, ENCHK+23
$$HIDDEN^PSJLMUTL EN+1
$$DD53P45^PSJMISC OC531+15
IN^PSJOCDS OC531+23
$$LS^PSSLOCK ENCHK+11
UNL^PSSLOCK ENCHK+27
FULL^VALM1 EN+4
PAUSE^VALM1 EN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no orders which can be Speed Finished at this time.",!,"Only PENDING RENEWALS can be Speed Finished."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: $C(7),!!,"??"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENCHK+7
Function Call: WRITE
  • Prompt: $C(7),!,"...order",$E("s",$L(PSGODDD(1),",")>2)," NOT finished..."
  • Line Location: ENCHK+8
Function Call: WRITE
  • Prompt: !," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",!
  • Line Location: ENCHK+11
Function Call: WRITE
  • Prompt: !!," ",PSGOERS2,". ",$P($$DRUGNAME^PSJLMUTL(PSGP,PSGORD),"^")," ",$P($G(^PS(53.1,+PSGORD,.2)),"^",2),!,"...No action taken on this order...",!
  • Line Location: ENCHK+18
Function Call: WRITE
  • Prompt: !!," Select the orders to be speed finished. Only orders listed under the PENDING",!,"RENEWALS heading are selectable. The start and stop date/times specified will"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"be used for all orders selected to be finished using this function.",!
  • Line Location: HELP+2
Routine Call
  • DIE
  • Line Location:
    • ENCHK+22
Routine Call
  • DIR
  • Line Location:
    • EN+16
    • DONE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] ENCHK+3, ENCHK+5, ENCHK+6, ENCHK+11, ENCHK+15, ENCHK+16, ENCHK+18, ENCHK+21*, ENCHK+24, UPDATE+2
UPDATE+3, UPDATE+4, OC531+10, OC531+11, OC531+22
^PS(53.45 - [#53.45] UPDATE+1!, UPDATE+3*, UPDATE+5*, UPDATE+6*
^PS(55 - [#55] ENCHK+7, ENCHK+22
^PSDRUG - [#50] OC531+12
^TMP("PSJ" EN+5, EN+6, EN+7, EN+8
^TMP("PSJON" ENCHK+3, ENCHK+5, ENCHK+10

Label References

Name Line Occurrences
DONE EN+16, ENCHK+4
EN EN+18, ENCHK+3
OC531 ENCHK+17
UPDATE ENCHK+25

Naked Globals

Name Field # of Occurrence
^( ENCHK+3
^("I" OC531+12
^(2 ENCHK+21*, ENCHK+22*, OC531+12
^(6 ENCHK+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OC531+3~, OC531+4
CODE EN+3~, EN+5*, EN+6, EN+7, EN+8, EN+9, EN+11
>> D ENCHK+3*
DA ENCHK+5*, ENCHK+22!*
DA(1 ENCHK+5*, ENCHK+22*
DIE ENCHK+22!*
DIR EN+15~, EN+16!, DONE+1!
DIR("?" EN+15*
DIR("??" EN+15*
DIR("A" EN+15*
DIR(0 EN+15*, DONE+1*
>> DIRUT EN+16
DR ENCHK+22!*
DRG EN+3~, EN+7*, EN+8
>> F ENCHK+3*
INTERVEN OC531+3~, OC531+5*
L1 EN+15~*, EN+17*
L2 EN+15~*
LOOP UPDATE+1~, UPDATE+2*, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6
NF DONE+3!
ON EN+3~, EN+8*
PENDCT EN+3~, EN+4*, EN+11*, EN+12
>> PSGDDI OC531+10*, OC531+11
PSGDO ENCHK+15*, DONE+3!
PSGDT OC531+3~, OC531+4*, OC531+12
>> PSGFD ENCHK+9, ENCHK+21
PSGFOK ENCHK+4, ENCHK+8!
PSGFOK(1 ENCHK+8
>> PSGLMT EN+4*
PSGMR OC531+22~*
>> PSGMRN ENCHK+15*
>> PSGNEDFD ENCHK+9
PSGODDD ENCHK+2!*, ENCHK+3, ENCHK+10, DONE+3!
PSGODDD( ENCHK+3, ENCHK+10
PSGODDD(1 ENCHK+2*, ENCHK+5, ENCHK+8
>> PSGOEE ENCHK+7*
>> PSGOEFF ENCHK+10*, ENCHK+18, OC531+19
PSGOERS ENCHK+3*, ENCHK+10*, DONE+3!
>> PSGOERS1 ENCHK+3*, ENCHK+10*
PSGOERS2 ENCHK+3*, ENCHK+10*, ENCHK+11, ENCHK+18, ENCHK+23, DONE+3!
>> PSGOFD ENCHK+5*
PSGONF EN+3~, EN+4*, EN+8*, EN+9, EN+14*, EN+15, EN+17
PSGONF2 EN+3~, EN+4*, EN+9*, EN+12*, EN+13, EN+14
PSGORD ENCHK+5*, ENCHK+6*, ENCHK+7, ENCHK+10*, ENCHK+11, ENCHK+15, ENCHK+16, ENCHK+18, ENCHK+21, ENCHK+23
ENCHK+24, ENCHK+26, ENCHK+27, DONE+3!, UPDATE+2, UPDATE+3, UPDATE+4, OC531+10, OC531+11, OC531+22
OC531+23
PSGORQF ENCHK+18, OC531+17!, OC531+23
>> PSGOSD ENCHK+3*
>> PSGP ENCHK+5, ENCHK+7, ENCHK+9, ENCHK+11, ENCHK+18, ENCHK+22, ENCHK+23, ENCHK+27, OC531+17
PSGPDRGN ENCHK+15*, DONE+3!
>> PSGPXN DONE+2
PSGRLAST EN+9*, EN+12*, EN+14, DONE+3!
PSGSCH ENCHK+16*, DONE+3!
>> PSGSD ENCHK+9, ENCHK+21, ENCHK+22
PSGSFD EN+3~, ENCHK+5*, ENCHK+7
PSGSI ENCHK+16*, DONE+3!
>> PSGST ENCHK+15*
>> PSGWLL ENCHK+7*
PSJALLGY OC531+3~
PSJALLGY( OC531+14*
PSJALLGY(0 OC531+16
PSJDD OC531+3~, OC531+11*, OC531+12, OC531+14, OC531+15*, OC531+16*, OC531+17, OC531+23
PSJDDI OC531+3~
PSJIREQ OC531+3~, OC531+5*
PSJJDRUG UPDATE+4*, UPDATE+5, UPDATE+6!
PSJOCDS OC531+3~
>> PSJOCNT EN+4
PSJPDRG OC531+3~
PSJRXREQ OC531+3~, OC531+5*
PSJSPEED ENCHK+1*, DONE+3!, OC531+9, OC531+15, OC531+19
>> PSJSYSP UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6
>> PSJSYSP0 ENCHK+4
>> PSJSYSW0 ENCHK+7, ENCHK+9
PSJX OC531+3~, OC531+12*, OC531+13
>> Q ENCHK+2*
ST EN+3~, EN+6*, EN+7, EN+8
U EN+15, EN+17, ENCHK+5, ENCHK+6, ENCHK+15, ENCHK+16, ENCHK+21, ENCHK+22, OC531+12, OC531+22
>> VALMBCK EN+1*
X EN+16!, EN+17, ENCHK+2, ENCHK+4*, ENCHK+15*, ENCHK+21*, ENCHK+22, OC531+5*
>> X1 ENCHK+2*
Y EN+17*, EN+18, ENCHK+2, ENCHK+3*, DONE+3!, OC531+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All