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

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  

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