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

Package: Controlled Substances

Routine: PSDPAT1


Information

PSDPAT1 ;B'ham ISC/JPW,BJW - Prt activity report (Patient/Drug) ; 17 Apr 98

Source Information

Source file <PSDPAT1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry for compile and print
PRINT ;prints data
DONE
END ;
PRTTRT ; PRINT TRANSFER TO INFORMATION
PRTRET ; PRINT RETURN INFORMATION
HDR ;header
CHK ;sets total qty used and balance
CHK2 ;CHECK THE TTYPE
TOT ;prints total qty used and balance

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?15,"**** NO DISPENSING ACTIVITY ****",!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?5,"=> ",PSDRG,!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: PSDT,?22,PSDPAT,?45,"*WASTED*",?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),!,?25,$P(PSD0,U,6),!
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "-"
  • Condition for execution: PSDTYP=17
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: $J(PSDSOQT,6)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?55,$J(PSDQTY,6),!
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),!
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: ?98,$P(PSD0,U,3),!
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: ?98,$P(PSD0,U,3),!
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !,PSDRET,?22,PSDPAT,?45,"*RETURN* -",?55,$J(PSDRQT,6),?75,$J(PSDNBAL,6),?98,$P(PSD0,U,2),!,?25,PSDRRE,?98,!
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: PSDTFDT,?22,PSDPAT,?45,"*TRFER* -",?55,$J(PSDTRQT,6),?75,$J(PSDNBAL,6),?98,$P(PSD0,U,18),!,?32,"*TRANSFER TO "_$P(PSD0,U,19),"*",?98,$P(PSD0,U,21),!
  • Line Location: PRTTRT+1
Function Call: WRITE
  • Prompt: PSDRET,?22,PSDPAT,?45,"*RETURN*"
  • Line Location: PRTRET+3
Function Call: WRITE
  • Prompt: ?75,$J(PSDNBAL,6)
  • Condition for execution: '$G(PSDPRT) " -" W ?55,$J(PSDRQT,6) W:'$G(PSDPRT)
  • Line Location: PRTRET+3
Function Call: WRITE
  • Prompt: ?98,$P(PSD0,U,2),!,?25,PSDRRE,?98,$P(PSD0,U,3),!
  • Line Location: PRTRET+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?20,"Activity Report for ",NAOUN,?55,PSDRPDT,?115,"Page: ",PG,!,?20,"Date: ",$P(PSDATE,U)," to ",$P(PSDATE,U,2),!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?5,"=> DRUG",!,"DATE/TIME",?22,"PATIENT",?55,"QUANTITY",?75,"BALANCE",?98,"NURSE 1",!,?98,"NURSE2",!,LN,!!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?5,"=> ",$S(PSDRG]"":PSDRG,1:PSDRGN),!
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+3
Info |  Source |  Entry Points |  Interaction Calls