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

Package: Inpatient Medications

Routine: PSJCLOR2


Information

PSJCLOR2 ;BIR/JCH - BUILD CLINIC ORDER LM HEADERS ; 2/28/12 9:11am

Source Information

Source file <PSJCLOR2.m>

Call Graph

Call Graph Total: 36

Package Total Call Graph
Inpatient Medications 27 (NEWNVAL,NEWUDAL)^PSGAL5  ($$ENDD,$$ENDTC)^PSGMI  ENFD^PSGNE3  (NEW,UPD)^PSGOEE  EN2^PSGOEEW  (ENASR,ENCHK)^PSGON  ENCV^PSGSETU  ENSTOP^PSIVCAL  
NEWORD^PSIVOPT1  EN^PSIVORE  GT55^PSIVORFB  (,ENBOTH)^PSJAC  ($$GETSI,FILESI)^PSJBCMA5  (HDRDT,INIT)^PSJCLOR2  EN^PSJCLOR3  (A25NV,A25V,A34)^PSJCLOR4  
(DSPORD,NEWCLN)^PSJCLOR5  NEW^PSJCOM1  EN1^PSJHL2  $$GETDUR^PSJLIVMD  GETUD^PSJLMGUD  ($$CRCL,HDR)^PSJLMHED  PAUSE^PSJLMUTL  (CONT,GODO)^PSJOE0  
$$RECDCEXP^PSJP  $$ENORL^PSJUTL  $$ENNOO^PSJUTL5  
VA FileMan 3 ^%DT  ^DIE  ^DIR  
List Manager 2 ($$SETSTR,FULL)^VALM1  KILL^VALM10  
Pharmacy Data Management 2 $$BSA^PSSDSAPI  ($$LS,UNL)^PSSLOCK  
Kernel 1 $$FMTE^XLFDT  
Order Entry Results Reporting 1 $$CWAD^ORQPT2  

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

Package Total Caller Graph
Inpatient Medications 6 PSJ LM CLINIC ORDERS  PSJ LM ECO RANGE  PSJ LM VIEW ORDER DETAIL  PSJCLOR2  PSJCLOR3  PSJCLOR5  

Entry Points

Name Comments DBIA/ICR reference
HDR(DFN) ; -- list screen header
; input: DFN := ifn of pat
; output: VALMHDR() := hdr array
HDRO(DFN) ; Standardized part of profile header.
INIT(PSJPROT) ; -- init bld vars
; PSJPROT=1:UD ONLY; 2:IV ONLY; 3:BOTH
DONE ;
ON ; Set order number into ^TMP
TF ; Set up order type header
TEST ; Headers
VWDETAIL(PSGP) ;
ENVW ; ask user to select or view any of the orders shown
GODO(PSJORD) ;
DONEVD ; Kill variables
NEWORDER(PSGP,PSGORD,PSGNWSD,PSGOEAV) ;
DSPORD(PSGP,TMPORDER,PSJORDAR) ; Display order summary
HDRDT ; Header Date Range
CHGDT ; Change date range
BEGDT ; begin date
ENDDT(BEG) ; end date

External References

Name Field # of Occurrence
^%DT BEGDT+5
^DIE NEWORDER+56
^DIR ENDDT+3
$$CWAD^ORQPT2 HDRO+6
NEWNVAL^PSGAL5 NEWORDER+4
NEWUDAL^PSGAL5 NEWORDER+5
$$ENDD^PSGMI NEWORDER+20, NEWORDER+22, NEWORDER+31, NEWORDER+33, NEWORDER+45
$$ENDTC^PSGMI HDR+10, HDRO+10, NEWORDER+20, NEWORDER+31
ENFD^PSGNE3 NEWORDER+13
NEW^PSGOEE NEWORDER+25
UPD^PSGOEE NEWORDER+34
EN2^PSGOEEW NEWORDER+19
ENASR^PSGON ENVW+3
ENCHK^PSGON ENVW+2
ENCV^PSGSETU VWDETAIL+1
ENSTOP^PSIVCAL NEWORDER+44
NEWORD^PSIVOPT1 NEWORDER+47
EN^PSIVORE NEWORDER+48
GT55^PSIVORFB NEWORDER+44
^PSJAC VWDETAIL+2
ENBOTH^PSJAC HDR+5
$$GETSI^PSJBCMA5 NEWORDER+54
FILESI^PSJBCMA5 NEWORDER+3, NEWORDER+54
HDRDT^PSJCLOR2 CHGDT+4
INIT^PSJCLOR2 VWDETAIL+2, CHGDT+4
EN^PSJCLOR3 INIT+5
A25NV^PSJCLOR4 NEWORDER+33
A25V^PSJCLOR4 NEWORDER+46
A34^PSJCLOR4 NEWORDER+22
DSPORD^PSJCLOR5 DSPORD+1
NEWCLN^PSJCLOR5 NEWORDER+57
NEW^PSJCOM1 NEWORDER+6
EN1^PSJHL2 NEWORDER+35, NEWORDER+48
$$GETDUR^PSJLIVMD NEWORDER+56
GETUD^PSJLMGUD NEWORDER+31
$$CRCL^PSJLMHED HDR+15
HDR^PSJLMHED CHGDT+4
PAUSE^PSJLMUTL INIT+6
CONT^PSJOE0 NEWORDER+2, NEWORDER+23
GODO^PSJOE0 GODO+1
$$RECDCEXP^PSJP TF+3
$$ENORL^PSJUTL NEWORDER+48
$$ENNOO^PSJUTL5 NEWORDER+23
$$BSA^PSSDSAPI HDR+13
$$LS^PSSLOCK NEWORDER+2
UNL^PSSLOCK NEWORDER+58
$$SETSTR^VALM1 HDR+7, HDR+9, HDR+10, HDR+21, HDRO+4, HDRO+5, HDRO+7, HDRO+11, HDRO+12
FULL^VALM1 INIT+2, VWDETAIL+3
KILL^VALM10 INIT+5
$$FMTE^XLFDT HDRDT+2, BEGDT+4, ENDDT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?22,"NO CLINIC ORDERS FOUND."
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !,$E($E(Y,1,(80-$L(X))/2)_" "_X_$E(Y,1,(80-$L(X))/2),1,80)
  • Line Location: TEST+2
Function Call: WRITE
  • Prompt: !,"NO ACTION TAKEN ON ORDER",!
  • Line Location: NEWORDER+2
Function Call: WRITE
  • Prompt: $C(7),!?5,"*** THE START DATE CANNOT BE AFTER THE STOP DATE! ***"
  • Line Location: NEWORDER+14
Function Call: WRITE
  • Prompt: " No changes made to this order!"
  • Line Location: NEWORDER+23
Function Call: WRITE
  • Prompt: !!?5,"Search for CLINIC Medication Orders with a Start Date/Time"
  • Line Location: BEGDT+2
Function Call: WRITE
  • Prompt: !?5,"within the date range selected below: "
  • Line Location: BEGDT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGDT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+3
Routine Call
  • DIE
  • Line Location:
    • NEWORDER+56
Routine Call
  • DIR
  • Line Location:
    • ENDDT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.1 - [#53.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] HDRO+2, ON+4, ENVW+8, NEWORDER+4, NEWORDER+6, NEWORDER+10, NEWORDER+31, NEWORDER+49, NEWORDER+51*, NEWORDER+52*
, NEWORDER+55
^PS(53.45 - [#53.45] NEWORDER+3
^PS(55 - [#55] HDRO+2, ON+4, NEWORDER+5, NEWORDER+10, NEWORDER+21, NEWORDER+24, NEWORDER+49, NEWORDER+50, NEWORDER+51*, NEWORDER+52*
^SC - [#44] HDRO+3
^TMP("PSJ" INIT+2!, INIT+6, INIT+7, INIT+10, INIT+11, INIT+14, INIT+17, INIT+18, INIT+20, INIT+21
, INIT+23, INIT+24, DONE+2!, ON+3, TF+2
^TMP("PSJCLOR" INIT+2!, DONE+1!*
^TMP("PSJON" INIT+2!, DONE+1, ON+5*, ON+6*, VWDETAIL+3, ENVW+7
^TMP("PSJPRO" INIT+2!, ON+5*, TF+8*

Label References

Name Line Occurrences
@( ON+5
BEGDT CHGDT+2
DONEVD VWDETAIL+4, ENVW+5, ENVW+7
ENDDT CHGDT+3
ENVW VWDETAIL+3
GODO ENVW+8, ENVW+9
HDRO HDR+6
ON INIT+11, INIT+18, INIT+21, INIT+24
TF INIT+9, INIT+16, INIT+19, INIT+22

Naked Globals

Name Field # of Occurrence
^( ON+3
^(2 NEWORDER+18, NEWORDER+43
^(2.1 NEWORDER+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEGDT+4!*
%DT("A" BEGDT+4*
%DT("B" BEGDT+4*
%DT(0 BEGDT+5*
BEG ENDDT~, ENDDT+1*, ENDDT+3, ENDDT+4
C TF+5~*
CNT DONE+2!
DA NEWORDER+56!*
DFN HDR~, HDR+6, HDR+13, HDR+15, HDRO~, HDRO+2, HDRO+6, INIT+3~*, VWDETAIL+1~, VWDETAIL+2*
, NEWORDER+2, NEWORDER+3, NEWORDER+5, NEWORDER+48, NEWORDER+54, CHGDT+4
DIE NEWORDER+56!*
DIR NEWORDER+2!, ENDDT+3!
DIR("A" ENDDT+3*
DIR("B" ENDDT+3*
DIR(0 ENDDT+3*
DN ON+3*, ON+7!
DR NEWORDER+29~*, NEWORDER+56!*
DTOUT DONEVD+1!, BEGDT+5
DUR NEWORDER+56~*
FQ ON+3*, ON+7!
GMRA HDR+4!
I NEWORDER+9~, NEWORDER+10*
>> IORVOFF HDRO+7
>> IORVON HDRO+7
LN NEWORDER+50~*, NEWORDER+51, NEWORDER+52*
ND NEWORDER+9~, NEWORDER+18*, NEWORDER+38~, NEWORDER+43*
ND( NEWORDER+10*
ND(0 NEWORDER+11, NEWORDER+12
ND(2 NEWORDER+11, NEWORDER+12
ND0 NEWORDER+18*, NEWORDER+38~, NEWORDER+43*
ND2 NEWORDER+9~, NEWORDER+18*, NEWORDER+38~, NEWORDER+43*
ND2P1 NEWORDER+9~, NEWORDER+18*
>> OD NEWORDER+48*
>> ON NEWORDER+48*
ON55 NEWORDER+38~, NEWORDER+43*, NEWORDER+48, NEWORDER+49, NEWORDER+51, NEWORDER+52
P NEWORDER+29~, NEWORDER+38~
P(2 NEWORDER+44*, NEWORDER+45, NEWORDER+48
PRJPRI ON+4~
PSGAT NEWORDER+1~, NEWORDER+32
PSGFD NEWORDER+1~, NEWORDER+12*, NEWORDER+13*, NEWORDER+20*, NEWORDER+30, NEWORDER+31*
PSGFDN NEWORDER+1~, NEWORDER+20*, NEWORDER+31*
>> PSGLMT ENVW+1*
PSGNEFD NEWORDER+1~, NEWORDER+13*, NEWORDER+14, NEWORDER+18, NEWORDER+20*, NEWORDER+31*
PSGNESD NEWORDER+9~, NEWORDER+11*, NEWORDER+20*, NEWORDER+31~, NEWORDER+32*
PSGNWSD NEWORDER~, NEWORDER+11, NEWORDER+13, NEWORDER+14, NEWORDER+20, NEWORDER+32, NEWORDER+44
PSGODDD ENVW+7, DONEVD+1!
PSGODDD( ENVW+7
PSGOE ENVW+7*, DONEVD+1!
PSGOEA ENVW+5*, ENVW+8*, ENVW+9*, DONEVD+1!
PSGOEAV NEWORDER~, NEWORDER+42, NEWORDER+55
>> PSGOEE NEWORDER+32*
PSGOEEF NEWORDER+1~
PSGOEEF( NEWORDER+15*
PSGOEEF(10 NEWORDER+1*
PSGOEEF(25 NEWORDER+29, NEWORDER+31
PSGOEENO NEWORDER+21*, NEWORDER+24~*, NEWORDER+34~*
>> PSGOEEWF NEWORDER+18*, NEWORDER+38*, NEWORDER+43
PSGOFD NEWORDER+1~, NEWORDER+12*, NEWORDER+21*
PSGONC ENVW+1*, DONEVD+1!
PSGONR ENVW+1*, DONEVD+1!
PSGONV ENVW+1*, DONEVD+1!
>> PSGOORD NEWORDER+20*, NEWORDER+54, NEWORDER+58
PSGORD ENVW+7*, NEWORDER~, NEWORDER+2, NEWORDER+3, NEWORDER+4, NEWORDER+5, NEWORDER+6, NEWORDER+8, NEWORDER+10, NEWORDER+11
, NEWORDER+12, NEWORDER+13, NEWORDER+15, NEWORDER+17, NEWORDER+18, NEWORDER+20, NEWORDER+21, NEWORDER+24, NEWORDER+28, NEWORDER+31
, NEWORDER+35, NEWORDER+37, NEWORDER+38, NEWORDER+43, NEWORDER+46, NEWORDER+54, NEWORDER+55, NEWORDER+56, NEWORDER+58
PSGOSD NEWORDER+1~, NEWORDER+12*
PSGP INIT+3, INIT+8, INIT+15, ON+4, VWDETAIL~, VWDETAIL+2, NEWORDER~, NEWORDER+10, NEWORDER+18, NEWORDER+21
, NEWORDER+24, NEWORDER+31, NEWORDER+35, NEWORDER+38, NEWORDER+46, NEWORDER+49, NEWORDER+50, NEWORDER+51, NEWORDER+52, NEWORDER+56
, NEWORDER+58, DSPORD~, DSPORD+1, HDRDT+1, CHGDT+4, BEGDT+1, ENDDT+2
>> PSGPD NEWORDER+31, NEWORDER+32
>> PSGPDN NEWORDER+32
PSGPDRG NEWORDER+31~*, NEWORDER+32*
>> PSGPDRGN NEWORDER+32*
PSGPRF VWDETAIL+1~, VWDETAIL+3*, ENVW+1*, ENVW+4!
>> PSGRDTX( NEWORDER+13
>> PSGS0Y NEWORDER+32*
PSGSCH NEWORDER+9~, NEWORDER+11*
PSGSD NEWORDER+1~, NEWORDER+12*, NEWORDER+20*, NEWORDER+22, NEWORDER+32*, NEWORDER+33
>> PSGSS INIT+3
PSGSSAV INIT+3*, DONE+2!
PSGST NEWORDER+9~, NEWORDER+12*
PSIVCHG NEWORDER+38~*
PSIVSYSP NEWORDER+38~, NEWORDER+42*
PSJ HDR+4!, HDR+7*, HDR+8*, HDR+9, HDR+10, HDRO+4*, HDRO+5*, HDRO+7*, HDRO+8*, HDRO+11*
, HDRO+12*
PSJACNWP HDR+4!, HDR+5*
PSJAPPT HDRO+1~*, HDRO+3*, HDRO+10
>> PSJBEG HDRDT+1, HDRDT+2, CHGDT+1, CHGDT+2*, CHGDT+3, BEGDT+1, BEGDT+4, BEGDT+5*
PSJBSA HDR+13*, HDR+21!
PSJC INIT+7*, INIT+8, INIT+9, INIT+10, INIT+11, INIT+14*, INIT+15, INIT+16, INIT+17, INIT+18
, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, DONE+2!, ON+3, TF+5
PSJCLIN HDRO+1~*, HDRO+2*, HDRO+3, INIT+7*, INIT+9, INIT+10, INIT+11, INIT+14*, INIT+16, INIT+17
, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, ON+3, TF+2, TF+6
TF+7
PSJCLINN HDRO+1~*, HDRO+3*, HDRO+4, HDRO+5, HDRO+10
PSJCLORD ON+1~*
>> PSJCOM NEWORDER+6*
>> PSJDB HDR+21*
PSJDCEXP DONE+2!, TF+3*, TF+4
PSJDFHDR TF+1~, TF+4*
PSJDLW ENVW+6!, ENVW+7, ENVW+8
PSJEDFLD NEWORDER+9~, NEWORDER+15*
PSJEN INIT+7*, DONE+2!, ON+5*
>> PSJEND HDRDT+1*, HDRDT+2, CHGDT+1, CHGDT+3*, ENDDT+2, ENDDT+4*
PSJF INIT+8~*, INIT+15~*
PSJFSI NEWORDER+3~*, NEWORDER+54
PSJINIV NEWORDER+38~
PSJL DONE+2!, ON+5*, DONEVD+1!
PSJLM VWDETAIL+1~
PSJLN INIT+7*, INIT+27, DONE+2!, TF+8*
>> PSJNOLOK NEWORDER+1*, NEWORDER+2*
>> PSJNOO NEWORDER+23*
PSJO ON+3*, ON+4, ON+5, ENVW+8~*
PSJO1 ENVW+8~*
PSJOCL NEWORDER+21*, NEWORDER+24~*, NEWORDER+31~*, NEWORDER+32
PSJOE ENVW+7*, DONEVD+1!
PSJOE1 ENVW+7*, DONEVD+1!
PSJOE2 ENVW+7*, DONEVD+1!
PSJON DONE+2!, VWDETAIL+3*, ENVW+1, DONEVD+1!
PSJORD HDRO+1, HDRO+2, ENVW+7*, ENVW+8*, ENVW+9, GODO~
PSJORDAR DSPORD~, DSPORD+1
>> PSJORL NEWORDER+48*
PSJOS DONE+2!, ON+2
>> PSJPAD HDR+7
>> PSJPAGE HDRO+12
>> PSJPDD HDR+7, HDR+9, HDR+10, HDRO+5, HDRO+9
>> PSJPDOB HDRO+12
>> PSJPDX HDR+8
>> PSJPHT HDRO+11
>> PSJPHTD HDRO+11
PSJPR VWDETAIL+3*, DONEVD+1!
>> PSJPRB HDRO+9
PSJPRF ENVW+1, DONEVD+1!
PSJPRI DONE+2!, ON+4*
PSJPROT INIT~, INIT+4, INIT+5
PSJPRP VWDETAIL+1~, VWDETAIL+3*
>> PSJPSEX HDR+7
>> PSJPSSN HDRO+8
>> PSJPTD HDR+10
>> PSJPWDN HDRO+5
>> PSJPWT HDRO+12
>> PSJPWTD HDRO+12
>> PSJQMSG NEWORDER+14*
PSJS INIT+11*, INIT+18*, INIT+21*, INIT+24*, DONE+2!, ON+2, ON+3
PSJSCHT ON+2*, ON+7!
PSJST INIT+10*, INIT+11, INIT+17*, INIT+18, INIT+20*, INIT+21, INIT+23*, INIT+24, DONE+2!, ON+2
ON+3
PSJSTPDF NEWORDER+38~
PSJSTRDF NEWORDER+38~
PSJSYSL VWDETAIL+1~
>> PSJSYSP NEWORDER+3
PSJSYSP0 NEWORDER+42~*
>> PSJSYSU INIT+3
>> PSJSYSW0 NEWORDER+41*
PSJTF INIT+7*, INIT+9*, INIT+14*, INIT+16*, INIT+19*, INIT+22*, DONE+2!
>> PSJTMPBG BEGDT+1*
>> PSJTMPED HDRDT+1, ENDDT+2*
PSJTMPFD NEWORDER+29~, NEWORDER+30*, NEWORDER+31
>> PSJTMPON NEWORDER+10
>> PSJTMPXQ NEWORDER+39
PSJUDPRF INIT+2!, INIT+4*
>> PSJVALQ INIT+3*, INIT+6*
PSJXDIR ENVW+2~*, ENVW+3
RMORDT HDRO+1~*, HDRO+9*, HDRO+10*, HDRO+11
RSLT HDR+15*, HDR+17, HDR+18, HDR+19, HDR+20, HDR+21!
>> SD NEWORDER+20*
SIARRAY NEWORDER+3~*, NEWORDER+4*, NEWORDER+5*
TMPBEG CHGDT+1~*, CHGDT+2
TMPCLIN INIT+3~*, INIT+9*, INIT+16*, INIT+19*, INIT+22*
TMPEND CHGDT+1~*, CHGDT+3
TMPNEFD NEWORDER+18~*, NEWORDER+20
TMPOLD NEWORDER+49~*, NEWORDER+50, NEWORDER+52
TMPORDER DSPORD~, DSPORD+1
U HDR+7, HDR+9, HDRO+3, HDRO+8, HDRO+12, NEWORDER+20, NEWORDER+31, NEWORDER+42
UDU INIT+3~*
VA HDR+4!
VADM HDR+4!, VWDETAIL+1~
VADM(1 HDRO+4, HDRO+5
VAERR HDR+4!
VAIN HDR+4!, VWDETAIL+1~
VAIN(4 NEWORDER+48
>> VALMBCK CHGDT+4*
>> VALMCNT INIT+27*
VALMHDR HDRO+4!
VALMHDR(1 HDRO+7*
VALMHDR(2 HDRO+11*
VALMHDR(3 HDRO+12*
VALMHDR(4 HDR+7*
VALMHDR(5 HDR+9*, HDR+10*
VALMHDR(6 HDR+21*, HDRDT+2*
>> VALMQUIT INIT+6*
X HDR+4!, HDRO+6*, HDRO+7*, TF+5~, TF+6*, TF+7*, TF+8, TEST+1~, TEST+2*, ENVW+2*
ENVW+5
XQORNOD NEWORDER+39~*
XQORNOD(0 ENVW+2, NEWORDER+40*
Y TF+5~*, TF+8, TEST+1~*, TEST+2, BEGDT+5, ENDDT+4
ZDSPL HDR+17*, HDR+18*, HDR+19*, HDR+20*, HDR+21!
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