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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FHSP1

Package: Dietetics

Routine: FHSP1


Information

FHSP1 ; HISC/NCA - Consolidated Standing Orders List ;7/28/94 12:59

Source Information

Source file <FHSP1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Dietetics 5 (DTP,EN2,TR)^FH  DPLL^FHLABEL  PATNAME^FHOMUTL  OPFILE^FHORX  ^FHSP11  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 3 NOW^%DTC  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Dietetics 5 FHSP  FHSP7  FHSP8  FHSPED  FHSPTAB  

Entry Points

Name Comments DBIA/ICR reference
Q1 ; Print Standing Orders List or Labels
Q2
HDR ; Header for Consolidated List
EVNT
DP
CON
PR
PP
HDR1 ; Header for Standing Order List
A1
LST
SOR
C2
C1
C0
E1 ; Set Consolidated List flag
E3
E2 ; Set Print Label flag
P0
CHK
ADD
KIL
ADDO ;process outpatient STANDING ORDER for consolidated, print labels and tabulated reports.
D5
D2
D3
D0

External References

Name Field # of Occurrence
NOW^%DTC Q1+1
^%ZIS PR
^%ZISC PR+2
^DIC D0+1
^DIR D5
DTP^FH Q1+2, Q2+6, EVNT+1, EVNT+2
EN2^FH PR+1
TR^FH D0, D2, D3
DPLL^FHLABEL Q1+7
PATNAME^FHOMUTL A1
OPFILE^FHORX EVNT+3
^FHSP11 Q2+5
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select SERVICE POINT (or ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: D0+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: D2+0
Function Call: WRITE
  • Prompt: *7,!,"Enter B for Breakfast, N for Noon, E for Evening or ALL for all meals"
  • Line Location: D2+1
Function Call: READ
  • Prompt: "Consolidated List Only? Y//"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: D5+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+8
Function Call: WRITE
  • Prompt: !?(80-30\2),$J(Z,6)," ",$P(^FH(118.3,KK,0),"^",1)
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !!,"# OF PATIENTS",?31
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: $S(Z:$J(Z,6),1:$J("",6))," "
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: $S(N1:$J(N1,6),1:$J("",6))
  • Line Location: CON+6
Function Call: WRITE
  • Prompt: !,$P($G(^FH(118.3,KK,0)),"^",1),?31
  • Line Location: SOR+1
Function Call: WRITE
  • Prompt: $S(Z:$J(Z,6),1:$J("",6))," "
  • Line Location: SOR+2
Function Call: WRITE
  • Prompt: $S(Z1:$J(Z1,6),1:$J("",6))
  • Line Location: SOR+3
Function Call: WRITE
  • Prompt: !!?(80-21\2),"**** PATIENTS = ",N1," ****",!
  • Line Location: PP+0
Function Call: WRITE
  • Prompt: !,DTR,?(L1-11),"Page ",PG,!!?(L1-55\2),"C O N S O L I D A T E D S T A N D I N G O R D E R S",!!?(L1-$L(DTE)\2),DTE,!!?29
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: S(X,K)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " TOTAL",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,DTR,?69,"Page ",PG,!!?20,"S T A N D I N G O R D E R S L I S T"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?(80-$L(N2)\2),N2,!?(80-$L(DTE)\2),DTE,!
  • Line Location: HDR1+2
Routine Call
  • DIC
  • Line Location:
    • D0+1
Routine Call
  • DIR
  • Line Location:
    • D5
Routine Call
  • %ZIS
  • Line Location:
    • PR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.72 - [#119.72] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] ADDO+7
^DPT - [#2] A1+1
^FH(118.3 - [#118.3] LST, CON+3, SOR+1, EVNT+3
^FH(119.4 - [#119.4] CHK+1
^FH(119.6 - [#119.6] Q2+1, DP+1, P0, ADDO+13
^FH(119.72 - [#119.72] E3, Q2+8, CON+1
^FH(119.9 - [#119.9] Q1+3
^FHPT - [#115] ADD+1, CHK, C0, C0+1, C2, C2+1!, ADDO+3, ADDO+10
^FHPT("ASP" ADD+1
^FHPT("ASPO" ADDO+2, ADDO+9
^FHPT("AW" Q2+1
^TMP($J Q1+1!, A1+1*, ADDO+24*, KIL!

Label References

Name Line Occurrences
A1 ADD+1
ADD Q2+1
ADDO Q2+3
C0 C2+1
C1 CHK, C0+1, C2+1
C2 CHK+2, C0, C2+1
CHK ADD+1
CON Q2+7
D0 D0+1
D2 E3, D2+1
D3 D3
D5 D2+2
DP Q2+1
E3 E1+1
HDR CON+2, SOR
HDR1 LST
KIL D0, D2, D3, PR, PR+1, PR+2
LST Q2+9
P0 Q2+1
PP LST+2
Q1 PR+2
Q2 Q1+5, Q1+6
SOR CON+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q1+1
%ZIS PR*!, PR+2!
%ZIS("A" PR*
A1 Q2+9*, C1!, C2*, C2+1
>> ADM Q2+1*, ADD, ADD+1, CHK, C0, C0+1, C2, C2+1, ADDO+22*
C Q1+1!, Q2+10!, CON+7!
C( A1+3*, LST+1, CON+5, ADDO+26*
>> CHK Q1+1*
>> COUNT Q1+2*
D Q1+1!, Q2+10!, CON+7!
D( Q2+8, DP+1*, CON+1
>> D3 D2+2*, D3+1*, D5+2, PR, Q1+8, Q2+7
>> DFN A1, A1+1
DIC D0+1!*
DIC(0 D0+1*
DIR D5!
DIR("A" D5*
DIR("B" D5*
DIR(0 D5*
>> DIRUT D5+1
>> DP Q2+1, C0+2, DP*, DP+1*
DT Q1+1*, Q2+6, ADDO+6
>> DTE Q2+6*, HDR+2, HDR1+2
DTIME D0, D2, D3
>> DTP Q1+2*, Q2+6*, EVNT+1*, EVNT+2*
>> DTR Q1+2*, HDR+2, HDR1+1
>> FHACT EVNT+3*
>> FHALML EVNT+3
>> FHCNSOF EVNT
>> FHDATE ADDO+4*, ADDO+6
>> FHDFN Q2+1*, ADD+1, A1+1, A1+3, CHK, C0, C0+1, C2, C2+1, ADDO+22*
, ADDO+24, ADDO+26
>> FHDT1 EVNT+1
>> FHDT2 EVNT+2
>> FHDTP EVNT*, EVNT+1*, EVNT+2*, EVNT+3
>> FHI ADDO+2*, ADDO+3, ADDO+9, ADDO+10, ADDO+22
>> FHJ ADDO+2*, ADDO+3, ADDO+9, ADDO+10, ADDO+22
>> FHLOC ADDO+8*, ADDO+13
>> FHLOCN EVNT+3
>> FHLODAT ADDO+12*, ADDO+13*, ADDO+14
>> FHLST PR+1*
>> FHMLOUT ADDO+20*, ADDO+21
>> FHMLSAV Q1+4*
>> FHOPDAT ADDO+3*, ADDO+4, ADDO+5, ADDO+7, ADDO+8, ADDO+20
>> FHOPT E1+1*, E2+1*, D2+2, Q1+3, Q2+5, A1+1, ADDO+24, ADDO+26, ADDO+27
FHORD A1+2*, A1+3, CHK*, C0, C0+1, C1!, C2+1*, ADDO+25*, ADDO+26, ADDO+27
>> FHP E3*, D0*, D0+1*, DP+1, ADDO+17, ADDO+18, ADDO+19
>> FHPGM PR+1*
>> FHSER1 ADDO+12*, ADDO+14*, ADDO+15, ADDO+17
>> FHSER2 ADDO+12*, ADDO+14*, ADDO+16, ADDO+18
>> FHSERV ADDO+12*
>> FHSRFLG ADDO+12*, ADDO+17*, ADDO+18*, ADDO+19
>> FHTXT EVNT+3*
IO PR+2
IO("Q" PR+1
IOF HDR+1, HDR1+1
IOP PR!, PR+2!
>> IOS Q1+3
IOSL LST, SOR
IOST HDR+1, HDR1+1
>> IS A1+1, CHK*, CHK+1*, ADDO+1*, ADDO+24
K Q2+8*, Q2+9*, C1!, C2*, LST, LST+1, CON+1*, CON+5*, SOR+2*, HDR+3*
>> K2 ADD+1*, A1+1, CHK*, C0+2*, ADDO+9*, ADDO+10, ADDO+24
>> KK LST*, CON+3*, SOR+1, SOR+2
>> L Q1+8*, DP+1*
>> L1 CON*, CON+1*, CON+2*, HDR+2
>> LAB Q1+3*, Q1+7
LABSTART D5!, D5+1*
>> LINE Q1+2*
>> M1 A1+2*, A1+3, ADDO+25*, ADDO+26, ADDO+27
>> MEAL D2*, D2+1, Q1+4, Q1+5*, Q2, Q2+6, A1+3, LST+1, CON+5, ADDO+21
, ADDO+26, ADDO+27
N Q1+1!, Q2+10!, CON+7!
N( A1+3*, LST, CON+3, SOR+2, ADDO+26*, ADDO+27*
>> N1 Q1+1*, LST+1*, LST+2*, CON+5*, CON+6, CON+7*, PP
>> N2 Q2+8*, Q2+9*, CON+1*, HDR1+2
>> N3 Q2+8*, CON+1*
>> NOW Q1+1*, Q1+2, Q2
>> NUM EVNT+3
>> NX LST*, CON+3*
>> P0 A1+1, P0*, ADDO+12*, ADDO+14*, ADDO+24
>> PG Q1+1*, HDR+1*, HDR+2, HDR1+1*
>> POP PR
>> Q A1+3*, ADDO+26*, ADDO+27*
>> RM A1+1*, ADDO+7*, ADDO+24
>> RMIEN ADDO+7*
S Q2+8!, DP!, CON!
S( Q2+8*, Q2+9, C0+2, DP+1*, CON+1*, CON+5, SOR+2, HDR+3
>> SP A1+1, A1+3, C0+2*, ADDO+10*, ADDO+15*, ADDO+16*, ADDO+24, ADDO+26, EVNT+3
>> T0 Q2*, CHK+2, C2
>> TT Q2*, A1+3*, ADDO+26*
U D2, ADDO+4, ADDO+5, ADDO+7, ADDO+8, ADDO+11, ADDO+14, ADDO+20, EVNT+3
>> W1 Q2+1*, DP+1, P0
>> WRD A1+1*, ADDO+10*, ADDO+24*
>> WRDN A1+1, P0*, ADDO+12*, ADDO+14*, ADDO+24
>> X D0*, D2*, D3*, D3+1*, Q2+8*, DP+1*, P0*, CON+1*, CON+5*, SOR+2*
, HDR+3*
X1 CHK*, CHK+2, C0+1*, C0+2*, C1!
>> Y D0+1, D5+1, ADD+1*, A1+1*, A1+2, A1+3, ADDO+10*, ADDO+11, ADDO+23*, ADDO+24*
, ADDO+25, ADDO+26, ADDO+27
>> Z LST*, CON+5*, SOR+2*
>> Z1 SOR+2*, SOR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All