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

Package: Fee Basis

Routine: FBAAVD1


Information

FBAAVD1 ;AISC/DMK/GRR-COMMUNITY NURSING HOME VENDOR DISPLAY ; 1/15/10 2:06pm

Source Information

Source file <FBAAVD1.m>

Entry Points

Name Comments DBIA/ICR reference
CNH(X,Z) ;retrieve latest vendor contract
RATE(X,FBCNRTS) ;retrieve rates
DISPLAY ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$J("Name:",13),?15,$E(Z(1),1,30),?48,"ID Number: ",Z(2)
  • Line Location: FBAAVD1+5
Function Call: WRITE
  • Prompt: !?23,">>> CNH INFORMATION <<<",!
  • Line Location: FBAAVD1+7
Function Call: WRITE
  • Prompt: !,$J("Total Beds:",13),?15,$P(V,"^",8),?37,"Inspected/Accredited:",?59,$S($P(V,"^",4)="I":"Inspected by VA",$P(V,"^",4)="A":"Accredited by JCAH",$P(V,"^",4)="B":"Inspect. & Accred.",1:"")
  • Line Location: FBAAVD1+8
Function Call: WRITE
  • Prompt: !,$J("Contract #:",13),?15,$P(FBX,U)
  • Line Location: FBAAVD1+11
Function Call: WRITE
  • Prompt: ?40,$J("Medicare/Medicaid:",13),?59,$S($P(V,"^",5)=1:"Not Cert. for either",$P(V,"^",5)=2:"Cert. for Medicare",$P(V,"^",5)=3:"Cert. for Medicaid",$P(V,"^",5)=4:"Cert. for both",1:"")
  • Line Location: FBAAVD1+12
Function Call: WRITE
  • Prompt: !,$J("Effect. DT:",13),?15,$$DATX^FBAAUTL($P(FBX,U,2))
  • Line Location: FBAAVD1+13
Function Call: WRITE
  • Prompt: ?42,"Last Assessment:",?59,$$DATX^FBAAUTL($P(V,"^",6))
  • Line Location: FBAAVD1+14
Function Call: WRITE
  • Prompt: !,$J("End Date:",13),?15,$$DATX^FBAAUTL($P(FBX,U,3))
  • Line Location: FBAAVD1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: FBAAVD1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+14
Info |  Source |  Entry Points |  Interaction Calls