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
Print Page as PDF
Routine: PSGAH

Package: Inpatient Medications

Routine: PSGAH


Information

PSGAH ;ALB/DRP - ADMINISTRATION HISTORY RPT ;29 Oct 2015 12:44 PM

Source Information

Source file <PSGAH.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; Initialize Variables
MAIN ; Main control
GETORD ; Get order information
GETHIST ; Get last 99 actions for each OI Dosage
SETTMP(ORDDT) ; Builds ^XTMP for sort
WRITE ; WRITE records to output
; "DOSAGE ORDERD"_" "_MED ROUTE (INTERNAL)_" "_SCHEDULE(INTERNAL)_$S(CURRENT ORDER:"(*)",1:"")
PRNHDR ; Heading
PRNLN ;Write line on report
PAUSE
PRMTRNG ; prompt for number of Days back to return
ERRTRP ; Error trap processing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Report not available until install of patch PSB*3.0*83"
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !,"AH Report cannot be run for this order. Use CPRS or BCMA to find Admin history."
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !,"AH Report cannot be run for this order. Use CPRS or BCMA to find Admin history."
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MAIN+2
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue....."
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRNHDR+3
Function Call: WRITE
  • Prompt: $E($$FMTE^XLFDT($$NOW^XLFDT),1,18)
  • Line Location: PRNHDR+4
Function Call: WRITE
  • Prompt: "Administration History for Orderable Item ",?73,"Page ",PAGNO
  • Line Location: PRNHDR+5
Function Call: WRITE
  • Prompt: $G(PSGOPDN)
  • Line Location: PRNHDR+6
Function Call: WRITE
  • Prompt: "Date Action Initials Location"
  • Line Location: PRNHDR+7
Function Call: WRITE
  • Prompt: "Dosage Ordered Med Route Schedule"
  • Line Location: PRNHDR+8
Function Call: WRITE
  • Prompt: "---------------------------------------------------------------------------"
  • Line Location: PRNHDR+9
Function Call: WRITE
  • Prompt: $E($P($$FMTE^XLFDT(DATE,5),":",1,2)_PSGSPCE,1,16)_" "_$E(PSGACT_PSGSPCE,1,6)_" "_$E(PSGIN_PSGSPCE,1,8)_" "_$G(PSGLOC,"UNKNOWN")
  • Line Location: PRNLN+2
Function Call: WRITE
  • Prompt: $E(PSGDSG_PSGSPCE,1,30)_" "_$E(PSGMRT_PSGSPCE,1,12)_" "_$E(PSGSCH_PSGSPCE,1,30),!
  • Line Location: PRNLN+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to exit"
  • Line Location: PAUSE+2
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls