Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.1 - [#53.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call