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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSJPRE42

Package: Inpatient Medications

Routine: PSJPRE42


Information

PSJPRE42 ; B'ham ISC/CML3 - MOVE SITE PARAMETERS ;2/18/92 16:56

Source Information

Source file <PSJPRE42.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 6 ^DIC  DO^DIC1  YN^DICN  ^DIE  IX1^DIK  ^DIR  
Inpatient Medications 1 ENKV^PSGSETU  

Entry Points

Name Comments DBIA/ICR reference
ENDH(X) ; device help
IS ;
ENDL ; device look-up
WH ;
WS ;
DONE ;
BWL ; build ward list
ENWE ;

External References

Name Field # of Occurrence
^DIC IS+1, WS+1, ENWE+1, ENDL+2, ENDH+2
DO^DIC1 ENDL+2, ENDH+2
YN^DICN PSJPRE42+7, IS+6
^DIE ENWE+1
IX1^DIK WS+1
^DIR IS+4
ENKV^PSGSETU DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?18,"MOVE SITE PARAMETERS TO WARD PARAMETER FILE"
  • Line Location: PSJPRE42+3
Function Call: WRITE
  • Prompt: !!?2,"This option is designed to allow you to seed the Inpatient Ward Parameter file",!,"with data from the Inpatient Site Parameter file. After the ward list is built,",!,"select the Inpatient site from which you want to move data. Then"
  • Line Location: PSJPRE42+4
Function Call: WRITE
  • Prompt: " select the",!,"ward(s) which you want to seed with the site data. The data from the selected",!,"Inpatient site will then be moved to each ward selected.",!!,"BUILDING the ward list..."
  • Line Location: PSJPRE42+5
Function Call: WRITE
  • Prompt: !!,"The data move has already been completed.",!,"Would you like to edit any of the entries in the Ward Parameter file"
  • Line Location: PSJPRE42+7
Function Call: WRITE
  • Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option."
  • Line Location: PSJPRE42+7
Function Call: WRITE
  • Prompt: !!,"Working..."
  • Line Location: IS+5
Function Call: WRITE
  • Prompt: !!,"The data move has been completed to all wards.",!,"Would you like to edit any of the wards"
  • Line Location: IS+6
Function Call: WRITE
  • Prompt: !!?2,"Enter 'YES' to edit the Ward Parameter file. Enter 'NO' to exit this option."
  • Line Location: IS+6
Function Call: WRITE
  • Prompt: !!?2,"Select the ward(s) to which you want to move the data from the selected",!,"Inpatient site. Choose, by number, from the following wards:"
  • Line Location: WH+1
Function Call: WRITE
  • Prompt: !,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: ?26,$J(Q,3),". ",$P(PSG(Q),"^",2)
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: WS+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: WS+1
Routine Call
  • DIE
  • Line Location:
    • ENWE+1
Routine Call
  • DIC
  • Line Location:
    • IS+1
    • WS+1
    • ENWE+1
    • ENDL+2
    • ENDH+2
Routine Call
  • DIR
  • Line Location:
    • IS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] Classic Fileman Calls
^PS(59.4 - [#59.4] Classic Fileman Calls
^PS(59.6 - [#59.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] BWL+2
^PS(59.6 - [#59.6] BWL+2, WS+1*

Label References

Name Line Occurrences
BWL PSJPRE42+6, IS+6
DONE PSJPRE42+8, IS+1, IS+7
ENWE PSJPRE42+8, IS+7
IS IS+4, IS+6
WS IS+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSJPRE42+7*, PSJPRE42+8, IS+6*, IS+7
DA WS+1*, ENWE+1!*, ENDL+1~, ENDH+1~
DIC IS+1*, WS+1*, ENWE+1!*, ENDL+1~, ENDL+2*, ENDH+1~, ENDH+2*
DIC(0 IS+1*, WS+1*, ENWE+1*, ENDL+2*, ENDH+2*
DIE ENWE+1!*, ENDL+1~, ENDH+1~
>> DIK WS+1*
>> DIR("?" IS+4*
>> DIR("A" IS+4*
>> DIR(0 IS+4*
DIX ENDL+1~
>> DLAYGO WS+1*
DO ENDL+1~, ENDH+1~
DR ENWE+1!*, ENDL+1~, ENDH+1~
DZ ENDH+1~
IOF PSJPRE42+3
IS IS+2*, DONE+1!
ISND IS+2*, WS+1*, DONE+1!
PSG PSJPRE42+7, PSJPRE42+8, IS+4, IS+6, BWL+1!*, BWL+2*, WH+2, DONE+1!
PSG( BWL+2*, WH+2, WS+1
>> Q IS+2*, BWL+1*, BWL+2*, WH+2*
Q1 IS+5*, DONE+1!
Q2 IS+5*, DONE+1!
X IS+5*, BWL+2*, WS+1*, ENDL+2!, ENDL+3*, ENDH~
Y IS+1, IS+2, IS+4, WS+1~, ENWE+1, ENDL+2
Y( IS+5
Y(0 IS+2, ENDL+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All