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

Package: Inpatient Medications

Routine: PSJCOMR


Information

PSJCOMR ;BIR/CML3-RENEW A COMPLEX ORDER SERIES ;07 MAR 96 / 1:23 PM

Source Information

Source file <PSJCOMR.m>

Call Graph

Call Graph Total: 29

Package Total Call Graph
Inpatient Medications 25 ^PSGAL5  ($$ENMRN,$$ENPDN)^PSGMI  ABORT^PSGOEE  (UPDREN,UPDRENOE)^PSGOER  DATE^PSGOER0  $$ENRNAT^PSGOU  (ENDDC,IVSOL)^PSGSICHK  ENPOS^PSGVDS  
ENQ^PSIV  ^PSIVCHK  EDIT^PSIVEDT  ^PSIVHLP  (ENARI,ENLBL)^PSIVOPT  EN^PSIVORE  (DEL55,GTPD)^PSIVORE2  (NATURE,ORPARM,RUPDATE)^PSIVOREN  
GT55^PSIVORFB  ^PSIVORLB  GTOT^PSIVUTL  (CMPLX,CMPLX2)^PSJCOM1  EN1^PSJHL2  VF1^PSJLIACT  ORDCHK^PSJLIFN  EFDIV^PSJUTL  
$$DATE^PSJUTL2  
VA Fileman 2 NOW^%DTC  ^DIR  
Pharmacy Data Management 1 ($$LS,UNL)^PSSLOCK  
Registration 1 PAUSE^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOER  PSIVOPT2  

Entry Points

Name Comments DBIA/ICR reference
RD ; Delete for renew.
UNMARK ;
NEWIV ;Renew complex IV orders
MOVE(X,Y) ; Move comments/dispense drugs from 55 to 53.45.
RIV ; Renew order.
FILEUD ;
OC55 ;* Order checks for Speed finish and regular finish
FILEIV ;
MARK ;
NEWUD
OK ;Print example label, run order through checker, ask if it is ok.
ABORT ; No changes
DONE ;
NEW ; get info, write record
TEMP(VARS) ;
RI ; Reinstate Auto-DC'ed order.
R1

External References

Name Field # of Occurrence
NOW^%DTC NEWUD+3, RI+3
^DIR PSJCOMR+12, UNMARK+2, RI+2, RI+4
^PSGAL5 UNMARK+6, FILEUD+8, MARK+2
$$ENMRN^PSGMI NEWUD+9
$$ENPDN^PSGMI NEWUD+9
ABORT^PSGOEE PSJCOMR+16, UNMARK+3, NEWUD+6
UPDREN^PSGOER FILEUD+6
UPDRENOE^PSGOER FILEUD+6
DATE^PSGOER0 NEWUD+6
$$ENRNAT^PSGOU NEWUD+11, R1+2
ENDDC^PSGSICHK OC55+3
IVSOL^PSGSICHK OC55+5
ENPOS^PSGVDS MARK+3
ENQ^PSIV OK+6
^PSIVCHK OK+2
EDIT^PSIVEDT R1+1, RI+6
^PSIVHLP OK+6
ENARI^PSIVOPT RI+7
ENLBL^PSIVOPT FILEIV+10
EN^PSIVORE FILEIV+8
DEL55^PSIVORE2 RD+1
GTPD^PSIVORE2 OK+1
NATURE^PSIVOREN R1+6
ORPARM^PSIVOREN R1+5
RUPDATE^PSIVOREN FILEIV+5
GT55^PSIVORFB RD+1
^PSIVORLB OK+4
GTOT^PSIVUTL OK+1
CMPLX^PSJCOM1 PSJCOMR+10
CMPLX2^PSJCOM1 FILEUD+7
EN1^PSJHL2 FILEIV+7
VF1^PSJLIACT FILEIV+9
ORDCHK^PSJLIFN NEWIV+3
EFDIV^PSJUTL OK+5
$$DATE^PSJUTL2 R1+1, R1+9
$$LS^PSSLOCK FILEUD+4, FILEIV+2
UNL^PSSLOCK FILEUD+10, FILEIV+9
PAUSE^VALM1 NEW+5, ABORT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This order is part of a complex order. If you "_$S($P(PSJSYSP0,"^",3):"RENEW",1:"MARK")_" this order the",!,"following orders will be "_$S($P(PSJSYSP0,"^",3):"RENEWED",1:"MARKED")_" too."
  • Line Location: PSJCOMR+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PSJCOMR+11
Function Call: WRITE
  • Prompt: !!,"THIS COMPLEX ORDER SERIES HAS BEEN 'MARKED FOR RENEWAL'.",!
  • Line Location: UNMARK+1
Function Call: WRITE
  • Prompt: "...DONE!"
  • Line Location: UNMARK+6
Function Call: WRITE
  • Prompt: !!,"By not verifying all the orders, none of the orders will be verified."
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: NEWUD+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: NEWUD+7
Function Call: WRITE
  • Prompt: !!,"...updating order..."
  • Line Location: FILEUD+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: FILEUD+8
Function Call: WRITE
  • Prompt: ".DONE!"
  • Line Location: FILEUD+11
Function Call: WRITE
  • Prompt: $C(7),!!?3,"...THIS ORDER IS ALREADY MARKED FOR RENEWAL!..."
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: MARK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWIV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This order has been Auto-DC'ed."
  • Line Location: RI+1
Function Call: WRITE
  • Prompt: !!,$C(7),"This order's provider is no longer valid. Please enter a valid provider."
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged."
  • Line Location: RI+6
Function Call: WRITE
  • Prompt: !!,$C(7),"No changes made to this order."
  • Line Location: ABORT+1
Routine Call
  • DIR
  • Line Location:
    • PSJCOMR+12
    • UNMARK+2
    • RI+2
    • RI+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OK+4
^PS(53.45 - [#53.45] NEWUD+5!, MOVE+1*, MOVE+2*
^PS(55 - [#55] UNMARK+4, UNMARK+5, UNMARK+6*, NEW+2, NEW+6, NEWUD, NEWUD+3, NEWUD+4, NEWUD+7, FILEUD+4
, FILEUD+9*, MARK+2*, MOVE+1, OC55+3, OC55+5, RIV+1, NEWIV+4, R1+2, R1+8, RI+3
^TMP("PSJCOMR" NEW+1!, NEW+7, NEW+10!, TEMP+1*
^TMP($J OC55+4!
^VA(200 - [#200] RI+5

Label References

Name Line Occurrences
ABORT PSJCOMR+13
DONE PSJCOMR+13, PSJCOMR+14, PSJCOMR+15, PSJCOMR+16, UNMARK+3, NEWUD+6
FILEIV NEW+9
FILEUD NEW+9
MARK NEWUD+3
MOVE NEWUD+5
NEW PSJCOMR+14
NEWIV NEW+4, RIV+3
NEWUD NEW+4, RIV+3
OC55 NEWUD+1
OK R1+4, OK+6
R1 R1+4
RD R1+1, R1+4, R1+6
RI NEWIV+2
TEMP NEWUD+14, R1+11
UNMARK PSJCOMR+15

Naked Globals

Name Field # of Occurrence
^( MOVE+1
^(2 NEWUD+5!
^(6 NEWUD+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NEWUD+3, RI+3
%DT DONE+1!
COMQUIT PSJCOMR+9!, NEW+2~, NEW+3, NEW+4, NEW+5, NEW+6, NEW+7*, NEWUD+13*, R1+6*, R1+10*
DA UNMARK+6*, DONE+1!, FILEUD+8!*, MARK+2!*, RI+1~
DA(1 UNMARK+6*, FILEUD+8*, MARK+2*
>> DFN NEWIV+4, R1+2, R1+8, R1+9, FILEIV+2, FILEIV+3, FILEIV+5, FILEIV+7, FILEIV+9, FILEIV+10
, RI+3, RI+7
DIE DONE+1!, RI+1~
DIR PSJCOMR+11!, PSJCOMR+12!, PSJCOMR+13~, UNMARK+1!, UNMARK+3~, DONE+1!, RI+1~, RI+2!, RI+4!
DIR("?" PSJCOMR+12*, UNMARK+2*
DIR("A" PSJCOMR+11*, UNMARK+1*, RI+2*, RI+4*
DIR("B" PSJCOMR+11*, UNMARK+1*
DIR(0 PSJCOMR+11*, UNMARK+1*, RI+2*, RI+4*
>> DIRUT PSJCOMR+14, PSJCOMR+15
DIU RI+1~
>> DONE RI+6
DR DONE+1!, RI+1~
DT RI+5
DUOUT NEW+2~, NEW+5, NEW+6, OK+2
DUZ NEWUD+14, MARK+2, R1+11, FILEIV+10, RI+7
>> EDIT R1+1*, RI+6*
ERR NEWIV+2~, OK+3, OK+6, RI+2*, RI+4*, RI+5*, RI+6*
FDSD DONE+1!
>> HELP OK+6*
>> I FILEIV+4*
>> II NEWUD+12*, R1+9*
INTERVEN OC55+1~, OC55+2*
IVSTRING R1~, R1+9*!, R1+10, R1+11*
>> OD FILEIV+8*
ON R1+7*, FILEIV+1~, FILEIV+5*, RI+7
ON55 NEWIV+4*, R1+1, R1+7, R1+9, FILEIV+1~, FILEIV+5*, FILEIV+7, FILEIV+9, FILEIV+10, RD+1*
, RI+3
OREAS FILEIV+1~, FILEIV+3*, FILEIV+9
P FILEIV+1~
P( FILEIV+4*
P("21FLG" R1+8*
P("FRES" R1+5*
P("NAT" R1+5, R1+6, R1+9, FILEIV+5*
P("NEWON" R1+1*
P("OLDON" NEWIV+4*, R1+2, RD+1
P("PD" OK+1
P("PON" RD+1*
P("RES" R1+5*
P(11 R1+2*
P(12 NEWIV+2
P(16 R1+8*
P(17 NEWIV+2, R1+5*
P(2 R1+1*, FILEIV+5, FILEIV+8, OK+4
P(3 R1+9, FILEIV+5*, OK+4
P(4 OK+1
P(6 R1+9, FILEIV+5*, RI+5
P(9 R1+2
>> P16 OK+1*
P2 R1~, R1+1*
PS55ACX NEW+2~!, RIV+1!
PS55ACX(55 NEW+2*, NEW+3, NEW+4, RIV+1*, RIV+2
PSGAL DONE+1!
PSGAL("C" UNMARK+6*, FILEUD+8*, MARK+2*
PSGALO RI+7~*
PSGALR DONE+1!
>> PSGAT FILEUD+5*
>> PSGCANFL PSJCOMR+14*
>> PSGDDI OC55+5*
PSGDL DONE+1!
PSGDLS DONE+1!
>> PSGDO NEWUD+9*
PSGDRG NEWUD~*
>> PSGDT NEW+8*, NEWUD+3*, NEWUD+6, NEWUD+12, FILEUD+6, MARK+2, MARK+3
PSGFD DONE+1!, NEW+8*, NEWUD+10, NEWUD+12, FILEUD+9, FILEIV+5
PSGFOK DONE+1!
PSGFOK(106 NEWUD+6
>> PSGHSM NEWUD+8*
>> PSGMR NEWUD+8*, NEWUD+9
>> PSGMRN NEWUD+9*
PSGND4 PSJCOMR+15, UNMARK+5*, UNMARK+6*, DONE+1!, NEWUD+3*, MARK+1, MARK+2*
>> PSGNEFD NEWUD+10*
>> PSGNESD NEWUD+10*
PSGOEAV NEWUD+7~*
PSGOEE DONE+1!, NEWUD+4*
PSGOEEF ABORT+1!*
PSGOEOS NEWUD+4!
>> PSGOEPR NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
PSGOER0 DONE+1!, NEWUD+8
PSGOER1 DONE+1!, NEWUD+7*, NEWUD+9
PSGOER2 DONE+1!, NEWUD+9, NEWUD+10, NEWUD+11
PSGOERDP DONE+1!, FILEUD+2~, FILEUD+9
>> PSGOFD NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
>> PSGOORD NEWUD+7*
PSGOPR DONE+1!
PSGORD PSJCOMR+10, UNMARK+4~*, UNMARK+5, UNMARK+6, NEW+2~, NEW+4*, NEW+6*, NEW+7, NEW+9, NEWUD
, NEWUD+3, NEWUD+6, NEWUD+7, NEWUD+12, FILEUD+2, FILEUD+4, FILEUD+6, FILEUD+7, FILEUD+8, FILEUD+10
, MARK+2, MARK+3*, MOVE+1, OC55+3, OC55+5, RIV+1~, RIV+3*, NEWIV+4, R1+8, FILEIV+2
, FILEIV+3, FILEIV+5, TEMP+1
PSGORDP NEWUD~
PSGOREAS FILEUD+2~, FILEUD+4*, FILEUD+6
PSGORQF NEWUD+2, OC55+3!, OC55+4!, NEWIV+3~
PSGOSD DONE+1!
>> PSGP PSJCOMR+10, UNMARK+5, UNMARK+6, NEW+8*, NEWUD, NEWUD+3, NEWUD+4, NEWUD+6, NEWUD+7, NEWUD+12
, FILEUD+4, FILEUD+6, FILEUD+7, FILEUD+8, FILEUD+9, FILEUD+10, MARK+2, MOVE+1, OC55+3, OC55+5
>> PSGPDRG NEWUD+9
>> PSGPDRGN NEWUD+9*
PSGPOSA DONE+1!, MARK+3*
PSGPOSD DONE+1!, MARK+3*
PSGPR DONE+1!
PSGPX DONE+1!
>> PSGPXN FILEUD+7
PSGRD DONE+1!
>> PSGRTWO FILEUD+4*, FILEUD+5
PSGRZERO FILEUD+2~, FILEUD+4*, FILEUD+6*
>> PSGS0XT NEWUD+10*
>> PSGS0Y NEWUD+10*, NEWUD+11*, FILEUD+5*
>> PSGSCH NEWUD+9*, NEWUD+11
PSGSD DONE+1!, NEWUD+10
>> PSGSI NEWUD+7*
>> PSGSM NEWUD+8*
PSGTOL DONE+1!
PSGTOO DONE+1!
PSGUOW DONE+1!
PSGWLL DONE+1!, NEWUD+4*, FILEUD+9
PSIVACT R1+8*, RI+1~
PSIVALCK RI+1~
PSIVALT RI+1~
>> PSIVCHG R1+3*
>> PSIVCT OK+1*
PSIVEXAM OK+1*, OK+4!
PSIVND0 R1~
PSIVND2 R1~
>> PSIVNOL OK+1*
PSIVOFD R1~, R1+8*, R1+9, FILEIV+5*
>> PSIVOK R1+1*, RI+6*
PSIVREA RI+1~
PSIVREAS R1~
PSIVRNFG NEWIV+3*!
PSIVTMP FILEIV+1~
>> PSIVTMP0 FILEIV+2*, FILEIV+4
>> PSIVTMP2 FILEIV+3*, FILEIV+9*
PSIVZERO FILEIV+1~, FILEIV+2*
PSJABT NEWUD~
PSJBKDR R1~*
>> PSJCOM PSJCOMR+9, PSJCOMR+10, UNMARK+4, NEW+2, NEW+3, NEW+4, NEW+6, NEW+7, FILEUD+7, RIV+1
, RIV+2, TEMP+1
>> PSJDD OC55+5*
PSJDDI OC55+1~
PSJIREQ OC55+1~, OC55+2*
>> PSJIVORF R1+5, FILEIV+6
>> PSJNOO NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
PSJORD FILEUD+2~*, FILEIV+1~, FILEIV+5*
>> PSJORIFN R1+8*
PSJPDRG OC55+1~, OC55+5!
PSJPREX FILEUD+2!, FILEUD+7*
>> PSJPWD NEWUD+11
PSJREN NEWUD~*
PSJRXREQ OC55+1~, OC55+2*
>> PSJSYSO MARK+3
>> PSJSYSP NEWUD+5, MOVE+1
>> PSJSYSP0 PSJCOMR+10, PSJCOMR+11, PSJCOMR+12, NEWUD+3
>> PSJSYSU PSJCOMR+15, UNMARK+6, NEWUD+7, FILEUD+7, FILEUD+8
>> PSJSYSW0 NEWUD+4, FILEUD+9
>> Q MOVE+1*, MOVE+2
RF DONE+1!
TMPDUZ NEW+2~, NEW+8*, FILEUD+6
TMPO NEW+2~, NEW+4*, NEW+6*, NEW+7, RIV+1~*, RIV+2*, RIV+3
TMPOE NEW+2~, NEW+6*
TMPP NEW+2~*, NEW+3*, NEW+4, RIV+1~*, RIV+2*
U NEWUD+11, MOVE+2, R1+2, R1+4, RI+3, RI+5
UDSTRING NEWUD~, NEWUD+12*!, NEWUD+13, NEWUD+14*
>> VAIN(4 R1+2
>> VALMBCK NEWUD+6*, FILEUD+11*
VARS TEMP~, TEMP+1
VSTRING NEW+7!*, NEW+8, NEW+10!
X UNMARK+4~*, NEWUD~, FILEUD+2~, FILEUD+4*, MOVE~, MOVE+1, OC55+2*, NEWIV+1~, R1+1, R1+4
, FILEIV+1~, FILEIV+2*, OK+2*, OK+3*, OK+6*, RI+5*
XX UNMARK+4~*, NEWUD~, NEWIV+1~
Y PSJCOMR+13, PSJCOMR+14, UNMARK+3, MOVE~, MOVE+1, MOVE+2, OC55+2*, OK+4*, RI+2, RI+4
>> ZZND OK+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All