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 ;31-Aug-2012 16:08;PLS

Source Information

Source file <PSIVORC1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 7 ENIVKV^PSGSETU  (ENSTOP,ENT)^PSIVCAL  ^PSIVCHK  (CKORD,EDCHK)^PSIVORC2  ^PSIVORLB  GTOT^PSIVUTL  EFDIV^PSJUTL  
VA Fileman 5 ^%DT  NOW^%DTC  FIND^DIC  FIELD^DID  ^DIR  
Registration 1 EN^VALM  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Inpatient Medications 12 PSIVEDRG  PSIVEDT  PSIVEDT1  PSIVORC  PSIVORC2  PSIVORE2  PSIVUTL  PSIVUTL1  
PSJDDUT3  PSJLIACT  PSJLIFN  PSJLIFNI  

Entry Points

Name Comments DBIA/ICR reference
EDIT1 ;
OTYP ; Get order type, display type.
55 ; Syringe Size
56 ; Intermittent Syringe
C ; Edit Chemo order
53 ; IV Type
ENHLP ; order entry fields' help
EDIT ;
S ; Edit Syringe order
DIRQ ; Set DIR("?") for IV Type prompt.
CKFLDS ; Find required fields missing data.
SC ;
DONE ; Kill variables and exit
COMPLTE ;

External References

Name Field # of Occurrence
^%DT 53+17
NOW^%DTC COMPLTE+4
FIND^DIC 53+2
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+17
ENT^PSIVCAL 53+17
^PSIVCHK COMPLTE+1
CKORD^PSIVORC2 COMPLTE+4
EDCHK^PSIVORC2 EDIT1+5
^PSIVORLB COMPLTE+5
GTOT^PSIVUTL COMPLTE+1
EFDIV^PSJUTL EDIT+3
EN^VALM EDIT1+4

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+1
Function Call: WRITE
  • Prompt: !
  • Line Location: COMPLTE+5
Function Call: WRITE
  • Prompt: !,"Start date: "
  • Line Location: COMPLTE+6
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+6
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?30," Stop date: "
  • Line Location: COMPLTE+6
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
Routine Call
  • VALM
  • Line Location:
    • EDIT1+4
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

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+6
^PS(51.1 - [#51.1] 53+3, 53+4, 53+6
^PS(53.1 - [#53.1] 53+14
^TMP("PSIV" DONE+3!
^TMP("PSJI" EDIT1+3
^VA(200 - [#200] COMPLTE+4

Label References

Name Line Occurrences
53 53+16
@( 53+16
DIRQ 53+16, C+1
EDIT1 COMPLTE+2, COMPLTE+3, 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
>> % COMPLTE+4
%DT 53+17!*
ACTION DONE+1!
AD DONE+1!
DA 55+1~
DFN DONE+1!
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*, DONE+1!
DONE 53+13*, 53+16*, C+1*, 55+1*, DONE+1!
DONE1 DONE+1!
DRG DONE+1!
DRG( CKFLDS+3, CKFLDS+4, CKFLDS+5
DRGI DONE+1!
DRGN DONE+1!
DRGT DONE+1!
DRGTMP CKFLDS+1~
DRGTN DONE+1!
>> DTOUT 53+16, C+1, 55+1
>> DUOUT 55+1, COMPLTE+1
DUZ COMPLTE+4
EDIT CKFLDS+2*, CKFLDS+3*, CKFLDS+5*, CKFLDS+6*, CKFLDS+7*, CKFLDS+8*, DONE+1!
ERR DONE+1!, COMPLTE+3, EDIT+1, EDIT+5
>> F ENHLP+4*, ENHLP+10*
>> F0 ENHLP+4*
F1 DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9
F2 DONE+1!, ENHLP+3, ENHLP+6, ENHLP+9, SC+1
>> 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!
ON1 DONE+1!
ON55 DONE+1!
ORIFN DONE+1!
P DONE+1!
P( CKFLDS+6
P("CLRK" COMPLTE+4*
P("DTYP" OTYP+1*, CKFLDS+7
P("INS" COMPLTE+4*
P("LOG" COMPLTE+4*
P("MR" CKFLDS+6
P("OT" OTYP+1*
P("RES" 53+14
P("SYRS" 55+2*
P(11 CKFLDS+7
P(2 53+17*, COMPLTE+5
P(23 53+14, OTYP+1, C+1*
P(3 53+17*, COMPLTE+6
P(4 53+16*, OTYP+1, COMPLTE+1
P(5 53+14, OTYP+1, 56+1*
P(9 53+1, 53+2, 53+11, 53+14, CKFLDS+7
P16 DONE+1!, COMPLTE+1*
PC DONE+1!
PDM DONE+1!
PG DONE+1!
PN DONE+1!
PNME DONE+1!
PNOW DONE+1!
PSG0XT EDIT+19!
PSGAT 53+1, 53+8, 53+9, EDIT+11!
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!
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
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+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!
PSIV DONE+2!
PSIVAC 53+17, OTYP+1, DONE+2!
>> PSIVACEP EDIT1+6*
PSIVASX CKFLDS+1~, CKFLDS+2*, CKFLDS+3, CKFLDS+4, CKFLDS+5
PSIVASY CKFLDS+1~, CKFLDS+4*, CKFLDS+5
PSIVAT DONE+2!
PSIVCHG COMPLTE+4, EDIT+4, EDIT1+5*!
>> PSIVCT COMPLTE+1*
PSIVCV DONE+2!
PSIVE DONE+2!
PSIVEXAM COMPLTE+1*, COMPLTE+5!
>> PSIVFN1 COMPLTE+2, EDIT1+4*
PSIVHD DONE+2!
PSIVLN DONE+2!
>> PSIVNOL COMPLTE+1*
PSIVOK DONE+2!
PSIVOLD DONE+2!
PSIVORUT DONE+2!
PSIVREA DONE+2!
PSIVSC1 DONE+2!
PSIVSTR DONE+2!
PSIVSTRT DONE+2!
PSIVTYPE DONE+2!
PSIVUP DONE+2!
PSIVX DONE+2!
PSIVX1 DONE+2!
PSIVY EDIT1+2~*, EDIT1+4
PSJACNWP EDIT+20!
PSJACOK EDIT+20!
PSJCOI EDIT+20!
PSJD ENHLP+1~
PSJD("DESCRIPTION" ENHLP+10
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, C+1, DIRQ+2, CKFLDS+3, CKFLDS+5, CKFLDS+6, CKFLDS+7, CKFLDS+8, COMPLTE+4
UL80 DONE+3!
>> VALMBCK EDIT1+6*
>> VALMBG EDIT1+3*
WD DONE+3!
WDN DONE+3!
WG DONE+3!
X 53+2~*, 53+5, 53+16, 53+17*, C+1, DIRQ+2*, CKFLDS+6*, ENHLP+4, ENHLP+10, EDIT1+3~*
XFLG EDIT1+2~
>> Y 53+16, 53+17, C+1, 56+1, 55+2, DIRQ+2*, COMPLTE+3*, COMPLTE+5*, COMPLTE+6*, EDIT+1*
, EDIT+9, EDIT1+2
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