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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (CLOSE,OPEN)^%ZISUTL  $$EC^%ZOSV  (,UNWIND)^%ZTER  ($$FMTE,$$NOW)^XLFDT  $$PATCH^XPDUTL  
Barcode Medication Administration 1 MEDHIST^PSBUTL  
Inpatient Medications 1 ENCV^PSGSETU  
List Manager 1 FULL^VALM1  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Inpatient Medications 1 PSJ LM ADM HIST  

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

External References

Name Field # of Occurrence
CLOSE^%ZISUTL MAIN+9
OPEN^%ZISUTL MAIN+2
$$EC^%ZOSV ERRTRP+2
^%ZTER ERRTRP+5
UNWIND^%ZTER ERRTRP+6
^DIR PRMTRNG+9
MEDHIST^PSBUTL GETHIST+9
ENCV^PSGSETU INIT+10
FULL^VALM1 INIT+11
$$FMTE^XLFDT PRNHDR+4, PRNLN+2
$$NOW^XLFDT PRNHDR+4
$$PATCH^XPDUTL INIT+1

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
Routine Call
  • DIR
  • Line Location:
    • PRMTRNG+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(51.2 - [#51.2] GETORD+6
^PS(53.1 - [#53.1] INIT+3
^PS(55 - [#55] GETORD+6, GETORD+7, GETORD+8
^XTMP("PSGAH" INIT+12!, SETTMP+1*, WRITE+3, WRITE+5, WRITE+6

Label References

Name Line Occurrences
GETHIST MAIN+6
GETORD MAIN+6
MAIN INIT+11
PAUSE INIT+1, INIT+2, INIT+3, PRNLN+5
PRMTRNG INIT+11
PRNHDR MAIN+7, PRNLN+5
PRNLN WRITE+8
SETTMP GETORD+9
WRITE MAIN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT INIT+6~, INIT+9*, PRNLN+4*
DATE WRITE+2~*, WRITE+3*, WRITE+5, WRITE+6, PRNLN+2
>> DFN INIT+4, GETORD+6, GETORD+7, GETORD+8, GETHIST+9
DIR PRMTRNG+1!, PRMTRNG+10!
DIR("?" PRMTRNG+4*, PRMTRNG+5*, PRMTRNG+6*, PRMTRNG+7*, PRMTRNG+8*
DIR("A" PRMTRNG+3*
DIR("B" PRMTRNG+3*
DIR(0 PRMTRNG+2*
DIROUT PRMTRNG+1!
DIRUT PRMTRNG+1!, PRMTRNG+9, PRMTRNG+10!
DTIME MAIN+8, PAUSE+3
DTOUT PRMTRNG+1!
DUOUT PRMTRNG+1!
I GETORD+1~*, GETORD+2*, GETORD+3, GETORD+9
IO MAIN+4, PAUSE+4
>> IO(0 PAUSE+2
IOF PRNHDR+3
IOSL MAIN+3, PRNLN+5
IOST MAIN+3
>> ON INIT+2, INIT+3, GETORD+5
ORDDT SETTMP~, SETTMP+1
ORDER WRITE+2~, WRITE+4*, WRITE+5*, WRITE+6
PAGNO INIT+6~, MAIN+4*, PRNHDR+2*, PRNHDR+5
POP MAIN+2, MAIN+10!
PROBLEM ERRTRP+1~, ERRTRP+4*
PSGACAR INIT+5~, MAIN+6, GETHIST+9
PSGACAR( GETORD+2, GETORD+3
PSGACT INIT+6~, GETORD+5*, SETTMP+1, WRITE+6*, PRNLN+2
PSGCUR GETORD+1~, GETORD+3*, GETORD+5*, SETTMP+1
PSGDRNG INIT+5~, GETHIST+9, PRMTRNG+9*
PSGDSG INIT+6~, GETORD+8*, SETTMP+1, WRITE+6*, PRNLN+3
PSGIN INIT+6~, GETORD+3*, SETTMP+1, WRITE+7*, PRNLN+2
PSGLOC INIT+5~, GETORD+3*, SETTMP+1, WRITE+7*, PRNLN+2
PSGMRT INIT+5~, GETORD+6*, SETTMP+1, WRITE+6*, PRNLN+3
PSGOIEN INIT+5~, INIT+8*, GETHIST+9
>> PSGOPD INIT+8
>> PSGOPDN PRNHDR+6
PSGORD INIT+5~, GETORD+5*, GETORD+6, GETORD+7, GETORD+8, SETTMP+1
PSGQ INIT+5~, MAIN+1, WRITE+3, WRITE+5, PRNHDR+1, PAUSE+3*, PRMTRNG+9*
PSGSCH INIT+5~, GETORD+7*, SETTMP+1, WRITE+6*, PRNLN+3
PSGSPCE INIT+5~, INIT+9*, PRNLN+2, PRNLN+3
STR GETORD+1~, GETORD+3*, GETORD+4, GETORD+5, WRITE+2~, WRITE+6*, WRITE+7
TERM INIT+1*, INIT+2*, INIT+3*, INIT+6~, MAIN+3*, PRNHDR+4, PRNHDR+5, PRNHDR+6, PRNHDR+7, PRNHDR+8
PRNHDR+9, PRNLN+2, PRNLN+3, PRNLN+5, PAUSE
U INIT+3, GETORD+3, GETORD+4, GETORD+5, GETORD+6, GETORD+7, GETORD+8, SETTMP+1, WRITE+6, WRITE+7
X MAIN+8*, PAUSE+1~, PAUSE+3*
>> XQUIT INIT+10
Y PRMTRNG+9, PRMTRNG+10!
Z ERRTRP+1~, ERRTRP+3*
Z(1 ERRTRP+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All