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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: MCARPS

Package: Medicine

Routine: MCARPS


Information

MCARPS ;WISC/TJK,RCH-PROCEDURE SUMMARY REPORTS ;6/18/97 10:53

Source Information

Source file <MCARPS.m>

Entry Points

Name Comments DBIA/ICR reference
CHOOZ
BEG ;SEARCH FOR SELECTED PATIENT IN CARDIOLOGY FILE
LOC ;LOCATE PROCEDURES FROM "AC" X-REF
PR
PR0
PR1
PR2
TOP
EXP
EXP1
FIN
EXIT
NEW
REDISP
PROC
HELP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO PROCEDURES FOR THIS PATIENT"
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !!,"NO ",$P(@(U_S5_",0)"),U,1)," PROCEDURES FOR THIS PATIENT"
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !!,*7,"Report Queued"
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22)
  • Line Location: PR2+6
Function Call: WRITE
  • Prompt: !,?1,M
  • Line Location: PR2+6
Function Call: WRITE
  • Prompt: !,$J(L,2),?4,MCARPROC,?36,Y,?56,$E(K,1,22)
  • Line Location: PR2+7
Function Call: WRITE
  • Prompt: !,?1,M
  • Line Location: PR2+7
Function Call: WRITE
  • Prompt: @IOF,!,"NAME: ",MCARNM,?35,"SSN: ",SSN,?55,"WARD: ",$E(WARD,1,19)
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !!,"(SUBSPECIALTY)/PROCEDURE",?36,"DATE",?56,"RESULTS"
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,M
  • Line Location: TOP+2
Function Call: READ
  • Variable: R
  • Timeout: DTIME
  • Line Location: EXP+0
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: EXP1+0
Function Call: WRITE
  • Prompt: !,$J(MCRED,2),?4,$P(MCRED1,U),?36,$P(MCRED1,U,6),?56,$E($P(MCRED1,U,7),1,22),!,?1,$P(MCRED1,U,10)
  • Line Location: REDISP+1
Function Call: WRITE
  • Prompt: !,"You may sort this report by date or procedure.",!,"If you choose 'D' (date) all medical procedures will be displayed starting",!,"with the most recent procedure."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"If you choose 'P' (procedure), you may specify in the next prompt either a",!,"specific procedure or 'ALL' procedures, alphabetically arranged with the most",!,"recent of that type of procedure displayed first."
  • Line Location: HELP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(690 - [#690] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call