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

Package: Inpatient Medications

Routine: PSIVORC1


Information

PSIVORC1 ;BIR/MLM - PROCESS INCOMPLETE IV ORDER - CONT ;13 Jan 98 11:36 AM

Source Information

Source file <PSIVORC1.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Inpatient Medications 14 ENIVKV^PSGSETU  (ENSTOP,ENT)^PSIVCAL  ^PSIVCHK  ($$SEECMENT,DEL)^PSIVEDRG  (EXPINF,ORFLDS)^PSIVEDT1  ENHLP^PSIVORC1  (CKORD,EDCHK)^PSIVORC2  ^PSIVORLB  
ENI^PSIVSP  GTOT^PSIVUTL  PSBPOIV^PSJIBAG  ($$INFRATE,PAUSE)^PSJMISC  IN^PSJOCDS  EFDIV^PSJUTL  
VA FileMan 6 ^%DT  NOW^%DTC  FIND^DIC  YN^DICN  FIELD^DID  ^DIR  
List Manager 2 EN^VALM  PAUSE^VALM1  

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

Package Total Caller Graph
Inpatient Medications 17 PSIVEDRG  PSIVEDT  PSIVEDT1  PSIVORAL  PSIVORC  PSIVORC1  PSIVORC2  PSIVORE1  
PSIVORE2  PSIVUTL  PSIVUTL1  PSJCLOR4  PSJDDUT3  PSJI LM VERIFY  PSJLIACT  PSJLIFN  
PSJLIFNI  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
53 ; IV Type
OTYP ; Get order type, display type.
C ; Edit Chemo order
S ; Edit Syringe order
56 ; Intermittent Syringe
55 ; Syringe Size
DIRQ ; Set DIR("?") for IV Type prompt.
CKFLDS ; Find required fields missing data.
DONE ; Kill variables and exit
ENHLP ; order entry fields' help
SC ;
COMPLTE ;
EDIT ;
EDIT1 ;
59 ; Infusion Rate
PSBPOIV ; Invalid IV bags based on BCMA IV parameters
SETNML55 ; Set NUMBER OF LABELS into ^PS(55,DFN,"IV",+ON55,0
; Added to PROTOCOL PSJI LM VERIFY after call to VF^PSJLIACT
; Made necessary by 11th hour code conflicts caused by MOCHA 2.0
SETNL531 ; Set NUMBER OF LABELS into ^PS(53.1,+PSGORD,8
; Added to PROTOCOL PSJI LM VERIFY after call to VF^PSJLIACT
; Made necessary by 11th hour code conflicts caused by MOCHA 2.0

External References

Name Field # of Occurrence
^%DT 53+33
NOW^%DTC COMPLTE+12
FIND^DIC 53+2
YN^DICN 53+23
FIELD^DID ENHLP+3, ENHLP+6, ENHLP+9
^DIR 53+12, 53+16, C+1, 56+1, 55+1, EDIT+1, EDIT+7
ENIVKV^PSGSETU DONE+3
ENSTOP^PSIVCAL 53+33
ENT^PSIVCAL 53+33
^PSIVCHK COMPLTE+2
$$SEECMENT^PSIVEDRG COMPLTE+7
DEL^PSIVEDRG 59+10
EXPINF^PSIVEDT1 59+4, 59+13
ORFLDS^PSIVEDT1 59+11
ENHLP^PSIVORC1 59+12
CKORD^PSIVORC2 COMPLTE+5
EDCHK^PSIVORC2 EDIT1+5
^PSIVORLB COMPLTE+14
ENI^PSIVSP 59+16
GTOT^PSIVUTL COMPLTE+2
PSBPOIV^PSJIBAG PSBPOIV+2
$$INFRATE^PSJMISC COMPLTE+5
PAUSE^PSJMISC COMPLTE+7
IN^PSJOCDS COMPLTE+9
EFDIV^PSJUTL EDIT+3
EN^VALM EDIT1+4
PAUSE^VALM1 59+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")"
  • Line Location: 53+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 53+12
Function Call: WRITE
  • Prompt: !?5
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $L(F3)+$X>78
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: F3_" "
  • Line Location: ENHLP+4
Function Call: WRITE
  • Prompt: !?2,PSJD("DESCRIPTION",F)
  • Line Location: ENHLP+10
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:",!?8,0,?16,"NO",!?8,1,?16,"YES"
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: $C(7),!,"Order Unchanged.",!
  • Line Location: COMPLTE+2
Function Call: WRITE
  • Prompt: !!,"*** One or more Additives has an invalid value for the bottle number(s).",!
  • Line Location: COMPLTE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPLTE+14
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+15
Function Call: WRITE
  • Prompt: !,"Please re-edit this order"
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: 'Y $C(7),"order unchanged." Q:'Y
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: $C(7),"Order unchanged."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!?5,"This is a Renewal Order. Infusion Rate may not be edited at this point."
  • Line Location: 59+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 59+4
Function Call: WRITE
  • Prompt: $C(7),!!,"An infusion rate must be entered!"
  • Line Location: 59+17
Routine Call
  • DIC
  • Line Location:
    • 53+2
Routine Call
  • DIR
  • Line Location:
    • 53+12
    • 53+16
    • C+1
    • 56+1
    • 55+1
    • EDIT+1
    • EDIT+7
Routine Call
  • VALM
  • Line Location:
    • EDIT1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(51.1 - [#51.1] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( ENHLP+6
^DD("DD" COMPLTE+15
^PS(51.1 - [#51.1] 53+3, 53+4, 53+6
^PS(53.1 - [#53.1] 53+14, 53+19, 53+20, 53+25, EDIT1+3, 59+2, SETNL531+3, SETNL531+4*
^PS(55 - [#55] PSBPOIV+1, PSBPOIV+2, SETNML55+3, SETNML55+4*
^TMP("PSIV" DONE+3!
^TMP("PSJCOM" EDIT1+5*
^TMP("PSJI" EDIT1+2
^VA(200 - [#200] COMPLTE+12

Label References

Name Line Occurrences
53 53+16, 53+27, 53+32
59 53+31, 59+4, 59+5, 59+7, 59+10, 59+11, 59+12, 59+14, 59+16, 59+17
@( 53+16
DIRQ 53+16, C+1
EDIT1 COMPLTE+3, COMPLTE+4, EDIT+1
S C+1
SC ENHLP+10

Naked Globals

Name Field # of Occurrence
^(0 53+6
^(12 ENHLP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 53+23*, COMPLTE+12, 59+10
%DT 53+33!*
ACTION DONE+1!
AD DONE+1!
ADCNT 53+19~*, 53+20, 53+25*, 53+26
DA 53+24~, 55+1~
DFN DONE+1!, COMPLTE+5, PSBPOIV+1, PSBPOIV+2, SETNML55+3, SETNML55+4, SETNL531+3
DIE 53+24~
DIR 53+12!, 53+13~, C+1~, 56+1~, 55+1~, EDIT+1!, EDIT+5!, EDIT+7!
DIR("?" DIRQ+1*, DIRQ+2*, EDIT+5*, EDIT+6*
DIR("??" 56+1*, DIRQ+1*, EDIT+6*
DIR("A" 53+12*, 53+13*, C+1*, 56+1*, DIRQ+1, EDIT+5*
DIR("B" 53+15*, EDIT+5*
DIR(0 53+12*, 53+13*, C+1*, 56+1*, 55+1*, DIRQ+2, EDIT+1*, EDIT+5*
DIRUT 56+1, EDIT+7!
DNE CKFLDS+4*, CKFLDS+5*, CKFLDS+6*, DONE+1!
DONE 53+13*, 53+16*, C+1*, 55+1*, DONE+1!, 59+4*
DONE1 DONE+1!
DR 53+24~
DRG DONE+1!
DRG( CKFLDS+3, CKFLDS+4, CKFLDS+5, CKFLDS+6
DRG("AD" 53+26*
DRGI DONE+1!
DRGN DONE+1!
DRGT DONE+1!
DRGTMP CKFLDS+1~
DRGTN DONE+1!
DTIME 59+4
>> DTOUT 53+16, C+1, 55+1
>> DUOUT 55+1, COMPLTE+2
DUZ COMPLTE+12
EDIT CKFLDS+2*, CKFLDS+3*, CKFLDS+5*, CKFLDS+6*, CKFLDS+7*, CKFLDS+8*, CKFLDS+9*, DONE+1!
ERR DONE+1!, COMPLTE+4, EDIT+1, EDIT+5
F ENHLP+4*, ENHLP+9~, ENHLP+10*
>> F0 ENHLP+4*
F1 DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9, 59+12*
F2 DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9, SC+1, 59+12*
>> F3 ENHLP+4*
FIL CKFLDS+1~, DONE+1!
HDT DONE+1!
IVCAT 53+8, 53+14~*, 53+15
IVTYPTMP 53+14~*, 53+15
J DONE+1!
LN DONE+1!
LN2 DONE+1!
LYN 53+2~
LYN("DILIST" 53+3, 53+5!, 53+6, 53+7
ND DONE+1!, EDIT+10!
ND4 EDIT+10!
ND6 EDIT+10!
NDP2 EDIT+10!
ON DONE+1!, COMPLTE+5, COMPLTE+9, EDIT1+3, EDIT1+5, 59+2
ON1 DONE+1!
ON55 DONE+1!, PSBPOIV+1, PSBPOIV+2, SETNML55+3, SETNML55+4
ORIFN DONE+1!
P DONE+1!
P( CKFLDS+7
P("CLRK" COMPLTE+12*
P("DTYP" OTYP+1*, CKFLDS+8, COMPLTE+5
P("FRES" PSBPOIV+2
P("INS" COMPLTE+12*
P("LOG" COMPLTE+12*
P("MR" CKFLDS+7
P("NUMLBL" 53+31*, EDIT1+5!, SETNML55+3, SETNML55+4, SETNL531+3, SETNL531+4
P("OT" OTYP+1*, 59+11
P("RES" 53+14, 59+2, PSBPOIV+2
P("SYRS" 55+2*
P(11 CKFLDS+8
P(2 53+33*, COMPLTE+14
P(23 53+14, 53+29, OTYP+1, C+1*
P(3 53+33*, COMPLTE+15
P(4 53+16*, 53+29, OTYP+1, COMPLTE+2, 59+5, 59+9
P(5 53+14, 53+29, OTYP+1, 56+1*, 59+5, 59+9
P(8 53+29, 53+31, COMPLTE+5, 59+4, 59+5, 59+10*, 59+16*, 59+17
P(9 53+1, 53+2, 53+11, 53+14, CKFLDS+8
P16 DONE+1!, COMPLTE+2*
P8BADDEF 59+1~*, 59+4
PC DONE+1!
PDM DONE+1!
PG DONE+1!
PN DONE+1!
PNME DONE+1!
PNOW DONE+1!
PRVON EDIT1+3~*
PSG0XT EDIT+19!
PSG53 53+18~, 53+23*, 53+27
PSGAT 53+1, 53+8, 53+9, EDIT+11!
PSGBTL 53+19~, 53+20*, 53+21
PSGCANFL EDIT+11!
PSGDI EDIT+11!
PSGDO EDIT+11!
PSGDRGN EDIT+18!
PSGDT EDIT+11!
PSGEA EDIT+13!
PSGEB EDIT+11!
PSGEBN EDIT+11!
PSGEFN EDIT+11!
PSGFD EDIT+11!
PSGFDN EDIT+11!
PSGHSM EDIT+12!
PSGINFAT 53+29~*, 53+31*, 53+32
PSGLI EDIT+12!
PSGLIN EDIT+12!
PSGLMT DONE+1!, EDIT+12!
PSGMR EDIT+12!
PSGMRN EDIT+12!
PSGNEDFD EDIT+12!
PSGNEF EDIT+12!
PSGNEFD EDIT+12!
PSGNESD EDIT+13!
>> PSGNSTAT 53+9*
PSGOAT EDIT+13!
PSGODDD DONE+1!
PSGODO EDIT+13!
PSGODT EDIT+13!
PSGOEAV EDIT+13!
PSGOEEF EDIT+13!
PSGOEEG EDIT+14!
PSGOEEWF EDIT+14!
PSGOEF EDIT+14!
PSGOENG EDIT+14!
PSGOES EDIT+14!
PSGOFD EDIT+14!
PSGOFDN EDIT+14!
PSGOHSM EDIT+14!
PSGOINST EDIT+15!
PSGOMR EDIT+15!
PSGOMRN EDIT+15!
PSGONC EDIT+15!
PSGOPD EDIT+16!
PSGOPR EDIT+16!
PSGOPRN EDIT+16!
>> PSGORD 53+1, 53+14, 53+19, 53+20, 53+25, SETNL531+3, SETNL531+4
>> PSGORQF COMPLTE+7*, COMPLTE+10, COMPLTE+13
PSGOSD EDIT+16!
PSGOSDN EDIT+16!
PSGOSI EDIT+16!
PSGOSM EDIT+16!
PSGOST EDIT+17!
PSGOSTN EDIT+17!
PSGPD EDIT+18!
PSGPDN EDIT+18!
PSGPDRG EDIT+18!
PSGPFLG EDIT+18!
PSGPI EDIT+18!
PSGPR EDIT+18!
PSGPRIO EDIT+18!
PSGPRN EDIT+18!
PSGPTMP EDIT+19!
PSGRRF EDIT+19!
PSGS0XT 53+2~, 53+3*
PSGS0Y 53+2~*, 53+4*, 53+6*, 53+7*, 53+8, 53+10, EDIT+19!
PSGSCH EDIT+19!
PSGSD EDIT+19!
PSGSDN EDIT+19!
PSGSI EDIT+19!
PSGSM EDIT+19!
PSGSS DONE+2!
PSGSSH DONE+2!
PSGST 53+3*, EDIT+20!
PSGSTAT EDIT+20!
PSGSTN EDIT+20!
PSINVON EDIT1+3~*
PSIV DONE+2!
PSIVAC 53+33, OTYP+1, DONE+2!, 59+11
>> PSIVACEP EDIT1+6*
PSIVASX CKFLDS+1~, CKFLDS+2*, CKFLDS+3, CKFLDS+4, CKFLDS+5, CKFLDS+6
PSIVASY CKFLDS+1~, CKFLDS+4*, CKFLDS+5, CKFLDS+6
PSIVAT DONE+2!
PSIVCHG COMPLTE+5, COMPLTE+11, EDIT+4, EDIT1+5*!
>> PSIVCT COMPLTE+2*
PSIVCV DONE+2!
PSIVDSFG COMPLTE+1~*, COMPLTE+5
PSIVE DONE+2!
PSIVEXAM COMPLTE+2*, COMPLTE+14!
>> PSIVFN1 COMPLTE+3, EDIT1+4*
PSIVHD DONE+2!
PSIVLN DONE+2!
>> PSIVNOL COMPLTE+2*
PSIVOK DONE+2!
PSIVOLD DONE+2!
PSIVORUT DONE+2!
PSIVREA DONE+2!
>> PSIVRENW 59+3
PSIVSC1 DONE+2!
PSIVSTR DONE+2!
PSIVSTRT DONE+2!
PSIVTYPE DONE+2!
PSIVUP DONE+2!
PSIVX DONE+2!
PSIVX1 DONE+2!
PSIVY EDIT1+1~*, EDIT1+4
PSJACNWP EDIT+20!
PSJACOK EDIT+20!
PSJCOI EDIT+20!
>> PSJCOM EDIT1+5
PSJD ENHLP+1~
PSJD("DESCRIPTION" ENHLP+10
>> PSJDSVFY COMPLTE+8*
PSJFNDS COMPLTE+5, COMPLTE+6!
PSJHP ENHLP+1~
PSJHP("HELP-PROMPT" ENHLP+4
PSJIVOF DONE+3!
PSJIVORF DONE+3!
>> PSJLIFNI EDIT+9
PSJNKF DONE+3!
PSJORD DONE+3!
PSJORF DONE+3!
PSJORIFN DONE+3!
PSJORL DONE+3!
PSJORNP DONE+3!
PSJORPF DONE+3!
PSJORSTS DONE+3!
>> PSJPWD 53+3, 53+4, 53+6
PSJX ENHLP+1~
PSJX("XECUTAB LE HELP" , ENHLP+6
PSOPDN EDIT+16!
RB DONE+3!
RF DONE+3!
SOL DONE+3!
STOP DONE+3!
TYP DONE+3!
U 53+3, 53+6, 53+20, 53+26, C+1, DIRQ+2, CKFLDS+3, CKFLDS+5, CKFLDS+6, CKFLDS+7
, CKFLDS+8, CKFLDS+9, COMPLTE+12, 59+4
UL80 DONE+3!
>> VALMBCK EDIT1+6*
>> VALMBG EDIT1+2*
WD DONE+3!
WDN DONE+3!
WG DONE+3!
X 53+2~*, 53+5, 53+16, 53+33*, C+1, DIRQ+2*, CKFLDS+7*, ENHLP+4, ENHLP+10, EDIT1+2~*
, 59+4*, 59+5, 59+7, 59+9, 59+10, 59+11, 59+12, 59+13, 59+14, 59+16
XFLG EDIT1+1~
>> Y 53+16, 53+18, 53+33, C+1, 56+1, 55+2, DIRQ+2*, COMPLTE+4*, COMPLTE+14*, COMPLTE+15*
, EDIT+1*, EDIT+9, EDIT1+1
ZZ 53+2~*, 53+3*, 53+4, 53+5*, 53+6*, 53+7*
ZZND 53+2~, 53+3*, 53+4*, EDIT+3
ZZNDW 53+2~, 53+4~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All