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 |  Local Variables |  All
Print Page as PDF
Routine: PSGDSP0

Package: Inpatient Medications

Routine: PSGDSP0


Information

PSGDSP0 ;BIR/ 5:18 PM-DISCHARGE ORDERS CONT. ;22-Jun-2004 09:03;PLS

Source Information

Source file <PSGDSP0.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 2 $$SITE^PSGMMAR2  ENTRY^PSJHEAD  
Adverse Reaction Tracking 1 ^GMRADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGDSP  PSGDSP1  PSGDSPN  

Entry Points

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

External References

Name Field # of Occurrence
^GMRADPT ENRCT+1
$$SITE^PSGMMAR2 ENHDR1+1
ENTRY^PSJHEAD ENHDR1+12

Interaction Calls

Name Line Occurrences
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+3
Function Call: WRITE
  • Prompt: ?72,"Page: 1"
  • Condition for execution: HDR>19
  • Line Location: ENHDR1+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENHDR1+4
Function Call: WRITE
  • Prompt: !?+HDR,"AUTHORIZED ABSENCE/DISCHARGE ",$P(HDR,"^",2),?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?1," ",!?1,"Effective Date:"
  • Line Location: ENHDR1+4
Function Call: WRITE
  • Prompt: ?72,"Page: 1"
  • Condition for execution: HDR>19
  • Line Location: ENHDR1+4
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+5
Function Call: WRITE
  • Prompt: !,ELN,!,"Instructions to the physician:",!?4,"A. A prescription blank must be used for:",!?9,"1. all class II narcotics",!?9,"2. any medications marked as 'nonrenewable'"
  • Line Location: ENHDR1+6
Function Call: WRITE
  • Prompt: !?9,"3. any new medications in addition to those entered on this form."
  • Line Location: ENHDR1+7
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+7
Function Call: WRITE
  • Prompt: " and refills",!?9,"2. sign the order, enter your DEA number, and enter the date AND time."
  • Line Location: ENHDR1+8
Function Call: WRITE
  • Prompt: " and refills",!?9,"2. sign the order and enter the date AND time."
  • Line Location: ENHDR1+9
Function Call: WRITE
  • Prompt: !,ELN,!
  • Line Location: ENHDR1+10
Function Call: WRITE
  • Prompt: ?53,"Last Transferred: "_TD
  • Condition for execution: TD
  • Line Location: ENHDR1+13
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+13
Function Call: WRITE
  • Prompt: !,ELN
  • Line Location: ENHDR1+14
Function Call: WRITE
  • Prompt: !!?18,"*** THIS PATIENT HAS NON-VERIFIED ORDERS. ***",!
  • Line Location: ENHDR1+14
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+15
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 "
  • Line Location: ENHDR1+16
Function Call: WRITE
  • Prompt: " is on ",SCV
  • Line Location: ENHDR1+17
Function Call: WRITE
  • Prompt: " at ",SC
  • Condition for execution: SC]""
  • Line Location: ENHDR1+17
Function Call: WRITE
  • Prompt: " is on ",SCV
  • Line Location: ENHDR1+18
Function Call: WRITE
  • Prompt: " at ",SC
  • Condition for execution: SC]""
  • Line Location: ENHDR1+18
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] ENHDR1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AD ENHDR+1*
>> AGE ENHDR+2*
>> DF ENHDR+1*
DFN ENHDR1+12, ENRCT+1~*
>> ELIG ENHDR+2*
>> ELN ENHDR1+6, ENHDR1+10, ENHDR1+14, ENHDR1+19
GMRA ENRCT+1~*
GMRAL ENRCT+1~
GMRAL( ENRCT+2
>> HDR ENHDR1+4, ENHDR1+6, ENHDR1+7, ENHDR1+9, ENHDR1+14, ENHDR1+16, ENHDR1+19
IOF ENHDR1+4
>> N ENHDR+1*
>> PDOB ENHDR+1*, ENHDR+2*
>> PG ENHDR+2*, ENHDR1+12
>> PI ENHDR+1*
>> PN ENHDR+1
>> PPN ENHDR+1*
>> PSEX ENHDR+1*
>> PSGP ENHDR+1*, ENHDR1+14, ENRCT+1
>> PSGPDT ENHDR1+4
>> PSGVAMC ENHDR1+1*, ENHDR1+4
>> PSJNARC ENHDR1+12
>> PSJOPC ENHDR1+12
>> PSJTEAM ENHDR1+12
>> PSSN ENHDR+1*
>> RB ENHDR+1*
RCT ENRCT+1~, ENRCT+3*
RCT( ENRCT+2*, ENRCT+3
>> SC ENHDR+1*, ENHDR1+18
>> SCV ENHDR+1*, ENHDR1+18
>> TD ENHDR+1*
U ENHDR1+4, ENRCT+2
>> VAEL(3 ENHDR+2*
>> VAEL(4 ENHDR+2*
>> VAEL(6 ENHDR+2*
>> WT ENHDR+1*
X ENRCT+1~, ENRCT+2*, ENRCT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All