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

Package: Inpatient Medications

Routine: PSGDSP0


Information

PSGDSP0 ;BIR/ 5:18 PM-DISCHARGE ORDERS CONT. ; 05 Oct 98 / 10:24 AM

Source Information

Source file <PSGDSP0.m>

Entry Points

Name Comments DBIA/ICR reference
ENHDR ; first header for each patient
ENHDR1 ;
ENRCT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENHDR1+2
Function Call: WRITE
  • Prompt: !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1,"VA FORM: 10-7978M",!?1,"Effective Date:"
  • Line Location: ENHDR1+2
Function Call: WRITE
  • Prompt: ?72,"Page: 1"
  • Condition for execution: HDR>19
  • Line Location: ENHDR1+2
Function Call: WRITE
  • Prompt: !,ELN,!,"Instructions to the physician:",!?4,"A. A prescription blank (VA FORM 10-2577F) must be used for:",!?9,"1. all class II narcotics",!?9,"2. any medications marked as 'nonrenewable'"
  • Line Location: ENHDR1+3
Function Call: WRITE
  • Prompt: !?9,"3. any new medications in addition to those entered on this form."
  • Line Location: ENHDR1+4
Function Call: WRITE
  • Prompt: !?4,"B. If a medication is not to be continued, mark ""TAKE NO ACTION"".",!?4,"C. To continue a medication, you MUST:",!?9,"1. enter directions, quantity,"
  • Line Location: ENHDR1+4
Function Call: WRITE
  • Prompt: " and refills",!?9,"2. sign the order, enter your DEA number, and enter the date AND time."
  • Line Location: ENHDR1+5
Function Call: WRITE
  • Prompt: !,ELN,!
  • Line Location: ENHDR1+6
Function Call: WRITE
  • Prompt: ?53,"Last Transferred: "_TD
  • Condition for execution: TD
  • Line Location: ENHDR1+9
Function Call: WRITE
  • Prompt: !?3,"Inpt Dx: "_PI,?$S($L(RB)<9:61,1:69-$L(RB)),"Room-bed: "_RB,!?1,"Reactions:"
  • Line Location: ENHDR1+9
Function Call: WRITE
  • Prompt: !,ELN
  • Line Location: ENHDR1+10
Function Call: WRITE
  • Prompt: !!?18,"*** THIS PATIENT HAS NON-VERIFIED ORDERS. ***",!
  • Line Location: ENHDR1+10
Function Call: WRITE
  • Prompt: !?4,"___ AUTHORIZED ABSENCE <96 HOURS ___ AUTHORIZED ABSENCE >96 HOURS",!?8,"NUMBER OF DAYS: _____ (NO REFILLS allowed on AA/PASS meds)",!!?4,"___ REGULAR DISCHARGE ___ OPT NSC ___ SC"
  • Line Location: ENHDR1+11
Function Call: WRITE
  • Prompt: " is on ",SCV
  • Line Location: ENHDR1+12
Function Call: WRITE
  • Prompt: " at ",SC
  • Condition for execution: SC]""
  • Line Location: ENHDR1+12
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: X>1
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(RCT)>77
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: " ",RCT
  • Line Location: ENRCT+3
Info |  Source |  Entry Points |  Interaction Calls